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iJASJj uwjji JJ 4J4& 4«Lij^jjj4S 4Jlji«wU ( (jl&jLwAtUjAJ ^J4 jjLj4j ) j 4J j^yjS jjilj^wAjlSAJ jj^44 

. (Visual basic) 4SUj4j JjjjjuS i$4«bj4j jLûjjiSjljjljJJ, Database jliJjjLûij 
j jLSjjjjJ i^JjJjû 4J ^yjljjj lujIjjjj IJjLÛ 4S. jjLw4«ljj4J ^jLSJÎjbjbAJ 4jL«j 4J 4iuS4J dwJ4J jjjjjul ^iUj 
45 «jjj (Database) jl£4JjLjlj ^4 Sj 4j jj4Sj (J 4 jjjj 4 j ^uIjjSjj Ujjj 44 jj4£4jjj£ j4 w 4J jLSjjljjb ^JJjSjJj 

■ jt&)jLw4jbj4J i£4Jjjj ^JjjJJjlj *JjLSj4 4Û J JJ jw4jU4J 

^wb |JJJ 4 4 jj 4SmJ 4J jjjjuJ ^LS4J{jjLjJj4w ^wW JJJJLJi IJ4uJjj\S4J4J 4uiS jw4J ^jljJjjJ 4J 4S (J4jLwb J4J 
Jj4£ ^1w4JJj45oJ 4j jb jj'jJLLwlj ^S4 jjj1w 4J jûljJjJ4S jIjSjjUU ^4«bj4J jJJÛ4> ^ Ij Jj 4w . jw JJJJ 45wLu 

. jJjJjJlJ LUJJJJ ^jjjjj jbjj jbi LSJuSîfb’ jjLS4j Û4ub (£4«bj4J 4)4J4«bj4J 
4 û^j iijjj4«bj4j jjj4J JJ4 &mJ 4J jjjjuJ (jjjj4«bj4J4J 



jbjlJj4j 

jSLw jjJJIf L^J juf'jJlbUû 

2005/ 8 / 1 



BASIC i-ImijAj i£4wjj. LUjjjJb jiwJJj (jjLwJjljjAj <jjUj ^SjIj Jj aS jiwJJj ^Uj 


4jUuj ^Uj ) LjIj jjjjLa uLu(Beginners All-Purpose Symbolic Instruction Code) <^LS4wjj 

.( jLSjJyJlûdjJwi^iwJJJj ÛmS jj jLSJjUjlA 

PjçS ^Ljjj Lilj j (John Kemeny) oS jj? Ulj jjjjA 4 j4jV <U 4S BASIC dLjjj ^iUj 

j4jV 4) jLwU * ûLa j»4Aj4j (Dartmaouth) jnjUjjb ^jSilj 4J 1 963 ^U 4i (Thomas Kurtz) 
l£4j4«Uj4j j4j t£4£tu ^SjjjAj j^jjj ^4 SjUj4j 1978 yJUAJ* (development) IjJuj ^j4j d4jLiU«jS 

4j|j4i UuA i»4Aj4j ^jjjjî jjJUA? jLwU . Jj4ûwjlJ JjUjjJ 


( QBASIC„GW BASIC, TURBO-BASIC) 

JÛ4£ 4j ^jûaJjjj Ij4j UJjS ÛwJjJ ^jlj? cSLpLSjjj JJjjLw4jUj4j j44 j4S JJJ4A iijLSjjj |£4 mulS jJJÛ4£ Lwj4j 4S 
4 j Jj4j 4S JjS ûfl j wjjSjU (jUiLwjS 4J ^lj juJjJ ^j 4jl itiiS j»4i 4S 4 jjj 44 juujjj jjS 41 jûUj jU jj <4ljjjj4w 
4j4jljU47m> ^SÛJ4J Jjjjjwfl (J4 «Uj4j ^jjjjfl |»4S4 j ûfljwjjSjU i^LûLu jS 1 99 1 ^Lw4l jjJJj4j, ûlJU 4 Lwj4j ^jUj 

.(Visual Studio 6.0) 4j jjIjwU 4S j (Visual Basic 6.0) 4Lwj4j DjjjlA Version ^jjjjfl jJljJ jSLUoj * 






. jjdidjb CD-Rom jIujaj J'JIjjjS t£ 4 jtjj 4 j 4 j ûjluû CD I: LjjjAwAJ - 1 
.jjiSa Next jAwAJ LLdS UljUjjiS lu^jjjj: Jjjj 4 m 4 j ^aj jjjjujj ^j^JlwJj JlwLw j JiwJJ Lxuj -2 



LLdS Laûj jjjU IjjjjjI^ <U 41 jj jjjjjjjJÛAA I accept the agreement ^wAj I: j>jUI: ^jjAaj 4 j jJ -3 

. jjjiSj: Next jAwJJ 


"■ InstûUntiem Wi7flFfl fnr Visunl Sttsrfin 6.0 [ntei’priae EditÎDin 


End User License Agreement 





3e sue to ceeMv i&ad and LJidsiitend dl of the dghls end jestiictiore 
dcsc.nbecf h thç E I.J LA V'.:m wi\ bç- a^hcd to rçvicw o*-d ciil-^r occept -oj ncii 
ziL-Oeijl lf K lerirti uf îhe EUUlr. This p:fuduel. w'Û nut rel up unyCHjr Cöfflputel 
unlesB or irtiijiou accept the terms of tho tULA. For pcxt' iutuie leference. 
yau may pnnfc the fcExfc nfc H-ie ÊiUI.A fciom îhs Eula b:l lile nfc fchis. prnduol Ydu 
jt»=v al$o feoeive e copv of thî EULA by DorrLacthg Lne MbrosofL -subiidiaiy 
5cr v ing your counby. o ojrtc; MicrtKdt 5afes rnk*maiion Çbrtcr20r-iç 
Miuicnult W^i /Rudmurid.. WA 3 6 Û 5 2 -6393 


END-USEH UCEN3E AÊREEMEriT FÛR HlCfiÛSOFT SÛFTWAfiE 

IMFORTANT READ CAREFULLY: This MicKKoft End-Use* L««tKe 
Agr*ftttierie (^EULA*) i± e leydi dyieeiiF^i: belween you (eîlhÊt 
individLHl oi e sinolo ertily) artd M-cro$of« Cofporaiion for the Mcrosofi 
sotlvJAr* pfDducfcfs) accömpanyng this EUl A. whiclh incLtdEiiJ computEr 
softvjare ar-d may include "onine 1 oi efcecJrond documentetion 
gssocotcd nîodia. ond oiintcd matwiete r'SOFTWAFîE FBODUCTH By 
irtttfilif'KL cnpying. m nlhEiwrrA Liringi Ifcnt SOFTWARE PRQD'-lCT ot any 


i i rir-. a Tr r . j . r... . j _ _ i_ .«■. 




. J L . .1. 


rVESi fche FAIjF- p iTwlN kr.y in eee març fcftnfc 

* I ûCOCpfc ^QrççrrrTTY: 

■ I dan^ öcccpl lfc-«E dgr«sn eni 


© 


< Idack 


Ntxl > 


E,± 





$j lj j jUjLj UjjjAa jj jiujja <£<uLij<u 4j u<ujIj Product's ID Number LfcLu-4 

: 4jjj1s f<4j jJjSdi Next j4u4J d U iS L a Juj juujjjjj 



. jj4Sjj Next jjbjjj Ij jMjlj^ jjL^jJU 4J-4 
. jj4Sjj Next LaUj jjjjjjjJÛJA jûjjjbjjb ^ ^4S<ulûj<u <Û ^jjjjS j<û ^jj jjj jLuU-5 








ujJii jUMbU jJûljAJb 4S jjjjjjtjJite jjLuJjjAj jLwb ijjjjjjjiîJA Next tjlJjjJ -6 

.jjjjjjjjjJA Continue-7 



.Restart »jjjjjluj&»j\i jUJStjJjjjjjjS -8 


Visual Sturdlo 6*0 EnferprîsB - Restart Windows 



You need to icstarl Windows to cmplete Hie irutellation. 


Beforeyou re-îtart H dose any open applicefions. includbig MS’DOS se&sions. 
and save all current docurments. Remove any fbppy dis-ks still nserted in a 
disk drive. Tken, click the RestaitWindms button 


îf you- choose fo resfart, the screen may 30 blank or flicker. Pfease be patient 
irfjpe Setupjestarts ycur rrwhinfe 


wriifa Setupiestarts ycur machine 



i 


© 


Exrt Setup 






j j&i jk 

Microsoft Visual Basic 6.0«< Microsoft Visual Studi 6.0<«Programs<«Start -1 


Set Prggram A cce&s and Derauits 

Windows Caê^log 


Atcşssixies 
Adobe Photoshop CS 
Mcrospft FrorftPage 
hfcrosGfa Po^erPoint 
Wcrosoft Word 




Wcrosoft Visual SourceSafe ► 

, j MScrosoft Visudl Stucfea 6.0 Enterpfise Tools ► 
Z] Mfcrosofl VisuafStuio'fi.OTools > 


^ M'crpsof t Visual Bask 6 . 0 


Microstrft Visual C++6.0 
Microsoft Visual FoxPro 6.0 
Microsoft Visual IntefDev 6.0 


ûl^dJjdJ "Jljj^i jLûy -2 









j»4S4j I:4jbj4j £)tSjj j4u4) . UwljSjjj 4J Microsoft Visual Basic ö.O^bj^j^jjljûUA Jib 
jJJÛ4£ 4J JJJJU djJ JdAJijteû 4J J4J4S « (New Project) 4J jjji ;J«jjjJ (£«j4şj 4J ÛJ^4 S«:j«: 4S «j4aj 4j 

::j:jIjj- ^4 J«jjm ^4j jJ4J4£«: ^^4J jljLu^ ^bj44 jb4S4Jj4& 4£ jjSjb 



4) ûbljj«:4S j:j5^4j^ ^4j<ubj4j ^i: jS û«jj: jj ûj:jLS4j : Standard EXE 

.LUjSjljbMake EXE <«File^4j 

( DLL ) ( :ULul ) ^jwb 4 j j:jS^4jj^ ^Sobb <y:jS ûwjj: jj ûj:jLS4j îActivex DLL 
.ÛLS::jLS EXE j4^4J J&4J ûlibjLS 4 j4j4j 4J4«bj4J j4J 4S 
( EXE x :ULwl ) ^jwb 4 j j: jS^4j^ ^SÛbb Ji jS ûmjj: jj ûj:jLS4j : Activex EXE 
. uLSjjb OLE i£«jjû4J (J«j4j jj jj ^S4j4«bj4j J4S4J ulS^jlSdS 
4^ûji jjj4S( OCX x :ULUI ) lijwb ^SÛbb ^jjjS ûmjj: jj ûj:jLS4j ♦. : Activex Control 

j4u4jL£4J ^JjLSjj JiijS ûujj: jj 

4SDLL ^jSub 4 j djbb ^jjS ûujj: jj ûl:«: ^^jj btActivex Document DLL 

ûjjj4ÛuJ ^LSaSL: j4m 4J 4«bj4J jj ÛJJjb4J 

ûûij4ûui j4u4J4S ^Jj^bb j4j ^i: jSÛujj: jj ûû:jb4j ; Activex Document EXE 

.ûjj4S::jj: 

. l:4Ubj4J4) jj4Sb :bj jLSjj jûljû:: UjLu4S ûLu4j j:jjal4j 4 j4uIÛ : Add In 


ijjl j£::Ub4j 4S jj^ jljj^ ^«j4ai 4 j ^jjjS ûujj: jj ûj:)LS4 j: VB Application Wizard 

4Jl: EXE i£j$S? 4) 4S. I:4w 4J j»4J 4J44 



5tandard EXE 



ActiveX DLL 



ActiveX EXE 



ActiveX 
Docunnent Pll 


JActlveK 
DQCument Exe 



VB App||ca 44 on 
Wizard 
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Intemet Information Server IjIj (IIS) aS :IIS Application Wizard 
HTML (Pj1m4j Web Class <yjjS jjljjj jj ûj:jL£<u <lS 
.6 Microsoft giu ; VB Wizard Manager 

i$jj4j IjJ <u Database jLSJjjLûlj j&j jj jjjjj ^jjjS ûwjjj jj ûjjjLSjj tData Project 

jui$JjLS4Jjj iJ<Uljj4J 

jj i^SLwUjlJ )HTML( ^jlSjjJj V ^jjjS lwjjj jj ûjjjLSjj :DHTML Application 

.(jujJava ^jUj (JjJÛiJjjAj^ 4j ûjjjJiu . u 
iJ4Suj jJU4l jLSjjljjlj jjj4a ^jUlJ jj ûjjjLSjj : VB Enterprise Edition Controls 

jjjSjjjjjjJj Ujjj4A jjj ^S JjjjÛS 4j jLSJjjLûlj 


ve Appllc-aCion 

Wlz-anJ 



VS Wlzard 
Manager 



DHTML 

Application 



Existing 


( jjuuJ ^jlSjjjjJ ) ûImJ4j jjjjul (J4«Ljj4J (PLSAbLa j jJjjjfl (JJjJÛJjSjS jj ÛJJjLSAJ 4m4j (»4J 






. 4J4A (jJ<UjIj ^SjjLS AS diw4J Jj4^ Ai djJ dluJJj jjdjjjl (J<ULjj4J <^ij4U» (JjLSjj 

. jjAS« : «jii jLu/L) 4S4J 4S4J b jjjUIj ^LS<û4j4J 

-s j4jL«4J jLujj&Jjl 


Form /kjj£-l 

v 

Toolbox jLSdjljjLj (jÛjjLU -2 
Properties Windows jLS4jjj<UJ <ujU ^dj<uû -3 
Project Explorer jLS«jjjj ^tjtjtj jj -4 

v ~ 

Code jLSjjjS (jUwjjj -5 
Menu bar jLS4luol <ju>£ -6 
Tool Bar jLSdjljjlj ^>5 -7 


f Oam | 

A) jLû lidjLS j>«44 <4jL>4£«j]jj ^jlj^jLS j jijS jjljj: ^ibaj jS jjjî. jLSdjjjj (J4 î£jj (J<LujIj4J 4j ^UjJ 

jjj&jjb4j .ûjj^Sjj:: jljj- j 4Lu j djj ^S<U:jlw<U jjj£ (pj4*i 4 j (#j4j jj 4jljjj4A 4 Lj4j j:jj^l (£4Lbj4j 

. 4l4|j::j4j LuuU Lj4A :j4S4j ^jj^I ^^jjj^j:: 4J j4A 4S 4j:j4ju 4j 
I: j:jS ^ jjjLS <U ,»îf<u uû^jjjj: I: jjljj: ^^IIS <U ,jb- jjJjAç- <U jjjjU dl| 4S :jb: :j«jlj^4U d:jj4J 

.uû::: 120 twips jLUb-jj:j4J jljjj ^jjj: ûuj4Sbj:: 




@ 4 ^ 

1 inch = 1440 twips 

1 inch = 72 point 







. ^SjjAw djbjiS 4 ^JJj£ jj'JjU^S julJ JUylj jtj jLS4J j^SjjAu/ JjtJjS (jljlj^U ^jJLU 4J Jj ^IUjJ 

Jj jijU jLwU Ij BASIC ^jUj ^ aS iuLSjj jLu^UjAj jj ^jLwLjjU jJjUjjj ^IjIjjU ^4j 4S 


jjljijU (21) jLSjjIj^Lj ^jAjI^u ^jjUj 4 j^j^j 




uLiS jU'JJJ ^LyJj^u IjAj jLu^j ^jLS4j ujj^jUj j^S dljjljjU j4A 
jU^SJjj^ (iijj j^ Jj (Drag & Drop) jLuiSlj j jJjS Aj jUjj I 

V V * ** V ♦ ♦♦ 

)ouble Click 



jl>4|j <pUj44 j d)4J 

jlj-û^jlj 

ii 

jljjÛ 

Cur) jLûLS:j£wU 4 S ^Lijj j4j ^il: jLAu jj ûujjlS <u jjljjLj ,»<û 

(Jpg,Ico, Gif,Dib,Wmf 

4jJj (ijl>«Lj 

Picture 

m 

UjjjAA »ji iJULSAbli Jj juujj (jjLuuj UjjjAAöj juujj jj ûuJjLSaj jjljjLj ^Jj 
ÛUMjjjljjJ (^UMjjj UjÛljJJJ JtldSûjjjJ ^jJJuAjISaj 

Text box 

m 

tfjjjtoljjJj JS jLû LSjjjjj jluj jUj LSdjbjS ^jLlûjb ^bwjjj jj ûjjjLS<u 
jljLS LMtiûJ dSûjjjJ t£ji LuAjLSAJ jJjV jJ ujjljjb ^pJJLuujjJ (»AJ, jJjSiJ jJ 

.( ÛJjjSuJ ûuûljjjj JSjjLw <Ubj<U L*j<U ) t ÛJjSU 

jULu$U (jijljjU 

lable 

A 

jLSjjbjS ^jjjS^-AJ ^ jj ûujjLSjU 4S jLSjjljjLÛ jjjLSubjLi4J JJ jSjSj j 

.ÛJjSiiiijAuJj \£JSijJjjjjŞ dûuLS 

jbj<û (j<uSj: 

Command Button 


jlj 1 ? j^^j ^Ijjjj^ ^4 iJtS^jj^u* jI^jj jUdjljjU 4 ^UjS jîjjLj^ jj wJJjUjj 

. jj4bUjjJ$Sjj ^4S4l 4 j2j^U ^UjjIjjLj Ij4j jj^jIjjI^S 4Sj^bP* 

jjipljÇ (ijljrfLj 

Frame 

H 

AjuSjj: jd dûS4j yjjj ûkûlju:: jdu^jLSAj 4Swuj::l: uSjj: dû)4jjS b«jJd 

.ÛUjjjd4A 

jjjlj^4£ ^jljjU 

Option Button 

(î- 

j 4S^jJLu/ j4S4J( jJ^^-^AJ ) ^J Jj Ij^ 4£ ^J wJJjU^J JjIjjU 

j>l^4J4J Ij^ ( UaU JU4J ) CUj 4J jAwAJ \£ j4S4J JJ ( 4 ^^ )^uwlj Ij^ UaU 

.LUjJjdWjJJ 

jJjljul4A 4 jJ$JLU 

Check box 

17 

j<Lu4jlS<U j4l<Û I: jjJûw jlÛ4J jJjljj}44 di)4jj£ ^UÛLwjj ju ÛU4 jLS4j 

«#* - v 

.uIjjj ^Uu Aj jIj^jjUj 4^5jjU Ij^ JjljdJ^ ^jLS^jjjIjjJ^ AJ ^LS^j 

jLS<CûwJ (Ş&jjJLu 

List Box 

=ş 

ûlul: 1 : 4S4Ûuul 4) dCû:jljd4A JÛ<U< ûöj4wJ j4S jby<ubj<u bLÛLS Ûj:jLS<U 
1: jujJj Lul: jJû4l Jj (Combobox ) .ûujjjjjLÛ44 ûujljû:: j<Lu4jLS<u , 

■ LUjSiijiJ djjAJ jSJJijlu 

jLS«jljJuib4J iûuuJ J&jJûu 

Combo box 



14 

i ûLSj ^jb: jLS^Sjj ^ûub jjjjij ûuilju:: jLw<Uljj<U l::jÛJ 

^jjjLtf (jUjM jjl Jjb 

Vertical Scrollbar 

±J 

±1 

4 ûLSj £>b: jlSiSjj ^lub jjjjiw ûbljj:: jL«<wbj<u I::jj1 

^jjub tfÛJju (Sjljrfb 

Horizontal Scrollbar 

±J±J 

^jjIj: d:j jU4S:j4jjU;ujS ^:b ^LSjlm^j ^il: jLlû jj ûj:jLS<u 

(A:,c:,d:,e:,f: ) 

:b ^jLS4iu4j ^jjjLU 

Driver List Box 

O 

bjljSjjb: ^SojLS^I jljSjjb: ^SjjLS ^jS^Aj^ jj ûj:jLS<U 

jjLS jb ^jjjS^Aj^ 

ji«j ûLS jjljub 

Timer 


jvTvJ 


jj ûbljjj: AS« I:jIjS jjb: ^SjjjJljS jjjJd jLSibb ^jlJjLlu jj ûjjjLSJj 

.ÛJjjjulAA jLSuSJj 

jLS4L:b ^jdJLu jjljub 

Files List box 


|=i 


jbJJ djjjJJj^ jb :j :b ^LS4 m4j jjjil ûljj:JJji ^ibiLuui jj ûjjjLSAj 

. l:jj (ySjjidJ jfi 

jLS:j:JJj4 {^3jJLuu 

Directory List Box 

o 


JijA (ijl> 4 lû 

Line 

- 

lJjUJS4jjjî jb<U ^jiuûSV jb:j ^jJjjb jb:j ^jiwjSjlj^ (J:jjû ûujljû:: 

. jiuuSj 

Shape 


(jjLûlj ûujljj:: iJjLujS jLSJjjLilj ^JÛjûj <u j: jSj JjjjjJj jj ûu:jLS<u 
. jjjSj <)S<Lyj<U Lûl: ^Llû ûujIjj:: :j.:j<uj<)Sj >4S jb :j ûj4Sj :bj 

Data 

[g 

image <jjl ljjb4J <Luj >5f4j ûLS::^<u^ (Picture box) ^jUj<û jU4A 
.ûl::: jLiû 4S4 ûjj4j û!4j LjIj :j4jLS::jJ 4S:jljjb 1: 

4ijj (ijljjb 

Image 


o 

V,'.- 


41 jLS4b)LS^4J^ 4Ubj4J yjLuAjLS<U jj ÛJJjLS4j jjljjb f»4J 

. IJjLb LSdjjjj 

v ** 

4jljSjjJ jjljub 
OLE jLS4jjLS^4j^? 






j*4J jrf4J jJJJJJ jbiLAub4J JjJjJ I7»mV JjS jbiLjjljub ^UjJj j jLjjljub ^Lj iJjj^uO ,jjLS4Li4j4J 


( . . . JlU j jtSjJjjjj ujjj £)}* jlj ) djj ^lw^JJ jjASjJ JjljljjlJ j»4J ^JjJuu JUjU ^mL Jjb> 

JJ (Z«<A) ^JjJjjjjJj Dlj (Alphabetic) 4J j»4S4J ^J$iw jjl jSjjj J^iwjjJ <U Ij4S43jJÛ« 4) jiajlS4J4iuy 

. jj4S4j4j jlS4J4joM ^Jjjjj4j ^j jj^4j Ju4jjjj ûlj (Categorized) j»jjjj ^j^iw 


Mvj.b*UJ jUj Lj 4 j 


Forml Form 

Al 

Afchabetic Catagoriwd | 

jAppoarûnte 

1 - 3D 

1 AutûPediaw 

FaJw | 

j &3ckColor 
iWderStyle 

□ &H80O0QOTF& 

2 - Stzable 

C-aption 

Forml 

CipControls 

T rue 

iCûfitrolEosc 

TniB 

DröWModft 

13 ■ Cöpy Ptn 

OrawSty^e 

0 ■ 5olid 

DrewWidth 

1 

.Ei>abled 

T rue 

iF#Color 

FiStyle 

■ $HOOOOOOOÛ8t 

1 - Iransparertt 

Fûfit 

M5 5ans 5er if 

I ; FonJtTransparant 
; ForeColoi 

■fMtfv. - 

h : jr ns/sets the text^ 
titfe bar pr hetqv-J en obpect'^ ieon 



4Sjjl julj ^UitjLj jj ujjjLSjj :Name - 1 
. 4 j4a ^jijjj 4S 4Sjjl julû tjijiu çiij}Z jj ÛjjjLS4j4J4ju. j»4j : Appearance -2 

.^jjjj ^ Ljtj : 1-3D 

. 4S4J u ujji j4A 4ilJJJ jlj^ ^SjjLjj 4&ij^ j l uL u yjjj j4A jj 4&JjS 4Û4 4 uk j»4J ûj>4J Ljlj : O-Flat 

4j<b ^j-ji ^ 4u4juu j.4j : Alignment -3 
. jL£4jjol&uj 4ûwjjj ûIjj ûLu u4b ^Vjj jujjj ^jj4j jj ûjjjLSjj : Left Justify 
. jLS4ojjj4£ j jL£4Ji£jj$S JLuwj^j djj ûLu ûulj ^Yjj jujjj ^jj4j jj ûjjjLS4j : Right Justify 

. IJjLSjjljjLj jli4) jjujji ^jjjS JjjjLi Lûlj: Center 

:Back Color JjjljlSb ^Sjjj-4 

U Jjj44 JJ . Jj^j Ij Jj ^SjJj4A 4) JJ 4J4A Ijjljjlj IjJjJb 4) 4S. 4Sjjljj|j ^JjjljSSb ^Sjjj ^yJjjS jj ÛJJjLSAj 

.ûjjjLSjj jlujjj ^jj jS Jjij jj 





:Border Style <iijS jiju’ -5 

.<U4& ^jûjjj 4S jj Jjiç jlj^ <jjlûlJ jj lUJjLSAj 4J4ÛLM j4Û 

jrtul: Jjjçjtjf (jûtjjlj tJJjit: 0 

.(jûjtj jji^jlj^lûlj (jûj)j Border <ujLj ijûtjjjj IjjjI): 1 

♦.Caption jLjjlj-6 

JÛJUljjjJ ûliûlû jûiplJ j4wJj ^jLSjljjl 4SJLUMjjj LUjjljjjj jj jLSjjtjjlj jj jbJ (JjJJjAw (^uwjjj jj luJjLSJj 

.ûijlj jjjS^4j^4l 


JJ LUJ JjJ J <u 


•.Control Box jjjujS ^jjûm -7 
fkjji (pjjjJû ^LSjjtjulu <Û ^jjj jj ûujjLS4u.4ijj4Û jlujj fkjji <U JûJujû 

( jJjSjjj4S 4 jJjS jJjj*j» jût^tJ ) . Pjb 

: Enable ^jûjuj <ujLj - 8 
<U<b ^jj jjj jjljjlj j»<û 
. jûi^j iijlû<U jûljuLj jjjS^Aj^ (Pli jjtjulû (»<û LjIj : False 
. jûi^j £,LS<u iJjJ&jjjj <U llûIjjjj j4ûi4jL5Aj, JUtjLS jjtjulû j<û Dlj : True 

:Fontûiji -9 


. IJuLSjjIjuIÛ JJ luAjAj ^y Ujfl ^jJjl>JJb j jjjjS jj lujjL^Jj 

•.FontColor ûijaySijj-10 

. jUj£ (jiJjljuÛ4£ (^Jjûjl 4 j ( û4i- ) LÛji ^Sjjj (jjjjjl jj luJjLSAj 

:Height iij;4j-ll 

4Sjjl julû lijjJU lijtjJÛ <U I^JJJÛ jj tJJLwJU j»4J jujjj jjLaj jutjJJJ* jLSjjl julû ^jj4J ^JjSujbJ jj ûjjjLÛ<U 

. jjJûujbJ 

:Left uAç-12 

Ij4j LUJJluj jû jJÛ 4£ j4A ) . 4S4ujjû ûjLSjj j4w4J luuAjAj ^jljulÛ (>uu ^LÛjJ ^JjiûjLjJ jj ûÛJjlS4J 

. (ûûg J J LUtflj I^Vjj 4SjjljulÛ 

:MouseIcon jrfijU^ijSulû-13 

l£jj4Û jji LL U UjJJ LUJUjIJ JÛjjljUlÛ jJUiJU JÛJLijU ÛliûLS ÛÛJ4ÛJJ <Û ÛUjûjjÛJU LUiJUJU (jjjSulÛ i^Jjiw LLÛtjUJJ 

ûijju jlu ( cur j ieo ) ijj&U ûijjj 4S Ûujûjuj<u jliJûjSuLÛ 41 ûliSJu 4i«ujij tj<û ûij IjLS jûjûlw ^jû 
.C ustomjj ûujj^j Mouse Pointer ^jû<uû<ujLu ûûjjj ûi?4iju 41 jUwjjJÛ. 

:RighttoLeft u4^ jjûwlj41-14 

. o jûj<ijjij uJU jjjJU ûwlj 4 J 4 S ûLSjJ ASjjLSjj 4J Ij jlS<LUJj4A jijlJjS 41 ûjjjLSJu 

: Password Char - 1 5 

ÛUjmJJÛJJ 4S 4JjjJLiw jlû 41 <lUwjû j4Û ÛÛjj^ 4U fe.Xt Box juujji ^jJLuu (Jjljub 4U 4ÛJUuLÛ 4Û4Ûuw j4Û 
(yiwljlu juû:jLS<U diLu j<L4 (yûjw 41 ( ***** ) jjiL«4j ^UiA 4i4Û jSl<U ûiûjlû ûliuJ guA j4li4jLS<U 

.ûûj4iL«JJ 4S (^JjIJjS j4Û 






:Top -16 


Ij4i CçUJbj j JJÛ4?' j4A 4S4«jji .JjLSjj jdjtdJ lu/A6A» ^jlj^b jJjLu ^jGjj ^JjSujbJ j) ÛÛJjLS4J 

H * H ^ v v ♦ y ♦♦♦♦♦♦♦ ♦ 

.lu£JJ JjJjJLwjj ASjjljjU 

: Visible JjjjiSjjj - 1 7 

4jAA ^jjûjjJ jLSdjljjLj ipj4jjjLû j jjjASjjj jj luJjLSJj 

show jjj^Sjjj LjIj : True 
.Hide ^4jjjliQlj:False 

^Width^ib -18 

. jUdSjjljjLj ( iyjU ) ^juL j lidjbûa ^yJjjS jj ûjjjlijj 

: Window State Jj4aj 4 j ijjb - 1 9 

i,$Ljjj4u41 QIj 4S4jbj4J <yjjSjj?4 jj? ^jLS jj Jj5 jlj4J jb4S4JJjjjJ 4ÛJ ÛÛJLS ÛJJjb4J 4j4juw ?> 4J 
^ j»4J 4 ûS4j jUûuuju 4 j lujjj ûjjAjUj j 4S ^jjb j4j ^ijjS jjjjujS jj 4S jjIjSjjUU 4«bj4j4j jJj£jl£ 

. jJjJjJ J Jli 44 4jb-jj 


.JjbtJ JJ iJ4SjjLj44 4SjjLu 4«bj4J 45 i£4JJju2 j4J 4Sjj4JfcJ 4J <^Jjj£jJJ ! Normal 
.lujjjjjj4^ Lmuj jjj£j4w4l 4US 4 j Ij Task bar 41 ûbjjSjb 41 jj ^jj^jjj :Minimized 

. jU 4 Sjjjjj (jjj 4j ^ijj^jjj :Maximized 


:Max Button -20 

4J44 ^jjjjJ UjLÛAS fkjja 4J 4 j4uLj 4j4juw 

13^1 LjIj tTrue 


.LU$4£ljjUA 4J j*jj£ j4w4) 


(j4«ljj lûtj:False 
:Control Box -21 


4)44 ^jjjjJ IJJLÛ4S fkjja 4J 4Û4 jjLj 4J4iuw ^4J 


LUj4SjJjbJ4J j»jji j4h»4J 
.LUj4SbjbJ 4J j»jjî j4m41 



i£4«3jj LjIj :True 
(J4 «Sjj lûlj:False 


:Font Under jjûLaIjjjj4j [Jj4 -22 
.ÛÛjIJ dÛÛMjjj j44 jJj 4J jj4 ^Jj4J jj LUJjLS4J 

:Font Bold jjjS jjû-23 

.^jû 4J jlû4uLjjj <yj ij4SjJJ jûUJjlÛ4J 

•.Fontltalic jjjSjV-24 


.jV (JJjjli 4j jLS4Lu«jjj yjjj4SjJ J jûuJjb4J 

:Max Length -25 

( 10 ) (JJjUj j4^4j 4jjj«j jj IJ Text Box j44 41 jb4uj iPjUj ^jj ijSujUj jj ÛUJjLS4J 4Û4Ûlu j4j 

. jujjjj juljû4j jûbjLuj( 10) Ij Text Box j4l jûljûjj Ij4j blj jU 
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:Multi Line-26 

•.ûjjÊai jj- 41 £jjjjj 4Û4jju jAj 

jjj jjbj dbjjjj JJ jU4S4uujjj djjli LjIj. Ij Text Box jb JJ juojjjj jjbj jJjjj: 4J juljJ»J bLu4S : True 

• fWJJJ (JjJJ 4dU£4J Ij4j 

IjAj jU4S Textijjjjj 4j IjAj jjj j^jjbj jU4£jLuMjjjj4^4j jj« jutjjj jjj d4j I^j4j jûljJJJ IjjjjJ :False 

. Jjj JJJ 4lub ûljjJJ tjjjjj <U j4A 


•.Cancel -27 

4S4«ljSjjJ 4j jjJ^jJJ JJ ÛJJjLS4J 4j4jjm j4j 
ûuçjjjjj 4S<ubj4j4J j^j41mIj Ij4j jj4Sjj 4 Sj Command Botton j4*4l UUIS uUjLS Ij4j :True 

.True ^UjJÛ ^4jlj4alj 4j:False 






jjljub (JJÛ44J 4ub ijjÛ44 4S (bljjj ^lwjjjj 4J 4J jLSjjljub (JJÛ4«J 4 jLu 41 ^JÛ44 ^jJjS Jrfib jSb 

jj4SÛ J«b 4S4J 4J 4S4J jLS4Subjb4J 


LaBeC 


jAw AJ jLuudJ 

v * 7 ** ♦♦♦♦♦ 

:Name -1 

jjJlA j4^4j ûûjj? 4J , ûluJb Jjb |»4j j4u4jLS 4J dJjjjiu 4J LjIj jL»4«bj4J 4J 4J4uLÛ 4 j4jum (»<Û 

.ujjjjl: (Label 1) 4S j!jJuj4m» (jjb ^jLj- 41 ûûjjj !j4j 4 jI: jUSjjbj4A 


: Alignment -2 
: Appearance -3 
: Auto Size -4 



: 4J4A ^jj jjJ 4S ÛLSj Back Color ^îjjujs ûkûljjjj 4J4jjM» j»4j 
.(Transparent) JûjljSÎSb^ 4j blj jûjlj Back Color (Jjû4b4ub jûljjb Ijj jil : 0 

. jûjlj Back Color (JJû4«j <ujLj jûljjjj Ijjjil : 1 



:Border Style -7 

4j 4A y^-jjjj: 45 jlSjjljjL jj jljç <jiLl: jj ûj:jLS4j |»4j 

jûjl: jjifjjljf jûljjLj IjjjjJ: 0 

ijûjl: jjdgjlj^Lûlj jûjl: Border ^JûJjj jujLj jûljj:: l:: jûJ: 1 

:Caption-8 

jLûwJj (jiçwjjj tjjjlw 4J ÛÛJjLSAJ jj: j4w ûIjj 

:Drag icon-9 

. :j£ JÛjjljjLjjJiwJJ jUSol^ djjLS ûUjjSjLj ,yjj4SjL: jj lujjLSaj 

:Drag Mode-10 

: lujSj: j^ 4J ^jj jj: 4S Drag icon |^j4j»lw 4 j j Jj 4 j 4 j 4 jjw f*4j 

.ûlijjUDrag iconQlj: Automatic 
ûLS4jjLS Drag icon LÛ!j:Manual 

:Data-l 1 


Databasc <u <û<ujLj 
: Enable ^ aj<uj <ujIû - 1 2 
4 jaa u^jj jj: jjljuL ^jlj 
. jûw$j jijLSAj ijûljjL jjjS^Jj^ iPLS :jlj«L j»<û Llj : False 
. jûi^j ûjLSaj iJûdSjjjjj 41 ûkûlju:: j<Lu4jLaj 4 <uIjLS :jlj«L j4u LjIj : True 

♦.FontûijS -13 

.IJjLSjjIjjL 41 uw4J4a ^uj£ ^Jjl jû44 j jjjjS jj lu:jL4j 

:Height-15 

:Index-16 

:Jû4jjjj fk4j ijjjjjS 4j Tab 4j jLjj4ûu»ljS ^ilS 41 jLSjjljjL (JJû4j jjj ^Lj4Sj:: jj ûu:jLS4j 4j4ûlw ^4j 

jj4ijjjjjS:: 


+jjljS juli 4S 4J 4J (JJÛ4Û 4jjLj 41 jJ ^LS^Jjiww 





Itt< B*w 


ûûljûj: jJLuAjLSJU ûlj ) <Uljj4J ^i : jSljpJjljp ijiji UuLp jLS jJjLûlj ^ii jZ ijjLSuljjSj juijji jj uJJjLS<U 

( ûLSj UÛj (jjlSuljjS 

* ** v 

:Name-l 

J>ju j4Ê4j SlûjjJ- Jj , ûlbULj Jjlj |»4J j<LuAjLS<U dJJdjiw guA <U Qlj jUJULjjJU JU JÛJLuLÛ JÛJÛuu f»4 J 

.ûjjÛjIj jljJuu <Lw ijjlj ^jLu- <U ûûjj: lj<U ûl:SjJ jUSJjljj44 

:Index-2 

j J u J jjjj j<u ^jjjjS <Lf Tab <u jLujJLuwljl ^jLS 4J jLSjjljjU ^JuAj jJj (^ujJSjj: jj lu:jLS4j Aj4jaj j4j 

.jjUujjjjlj: 

:Locked-3 

4 j 4 A ^jj jj: 4SI: Textbox <jSjjJjû JJ ijjLSjljjS <jiijSi: j4«<u ûwj: jj ûjjjUju 

.ûu4SjI:Lû ijjLSjljjS ûûljjj: : T rue 
.ûj4SjI:Lû ijjLSjljjS ûûljjû :False 

:Text -4 

. I: Textbox jjljjLi 4J <ui: Caption ^jLu- <U 4S 4S:jljjLj ^Sjjjjû <yjjjS jj ûj:jLS<u 

:Tab Index-5 

jujJjjjJj 4 j ûluj ijjjJj jj ÛJjjjjjjU ûlJjjjUj ûûjj: I:jjÛJ 4S. jLSjjljjû ^JjJUjjj ^jjjJSjj: jj ûjjjLSju 
.ûujSjjjû: jjljjû ^aj Ijjj ulû Lûlj ^wjjj ( 4 ) JjUj jjS 4jj jû jj. l:Tab ^JjJjjjj 4 J ( JSjjUj ) 

: Password Char-6 

ÛUjjjjjjj: 4S JÛjjJLlw jû 4i Uuwjj j4J ûLjjJ^ 4J Text Box îgUfjji (jûjJLU ijjljjû 4J JÛJUJlû 4ÛAi j4J 
^yjjw <U ( ***** ) tj&uAj ^Lûu 4J4Û jSJ<U ûûûuû ûilu gjA j<LuAjLS<U UjjjJU .ÛJjSu Copy ÛUjjljûÛ 

.ûûjAjUj: 4S ijjjUjS jjj (jUuljû jj Ûu:jLS4j ûLl ujjJA 

:Scroll bars -7 

jû uJjuÛ ijjjiu <u Textbox <U jjj jûûj jlSjj* > wjû jjS UûL«jLSjjl>wjj jJûjUjû JjjSU ^ûl: jj ûj:jLSju 

.ûujSj: jj~ jU Çjjlfu 4S SJjj:j4A jû ^jjjiu 

Scrollbar=2-Vertical 
Scrollbar= 1 -horizontal 
Scrollbar=Both 


+ jjljS jjû <S <u ^iSS <u ijJûAu uuLÛ jU jû ^LSjûjûju 



jlj&jbj <^ujl:jjj jjj 4 J jljS £)b: ^SoibjJÛ ^i:jS^ 4 j^ j: ûj:jLS<U 

:Down Picture-1 


iJj4<hjÛS ^yjjSl: (jlj: Ljlj )jj4S:: 4S:jljjb j4m 4J û ld S ûUjLS jb4S:jljjb j4w4J 4jjj ^bj4Sjj: jjju:jlSJj 
uuj IjlS 4j4jj<h jJj (JjjAj jj . ju4 S j: ijjb: JSdjjj IjjjuJ AS lu£j:jj: UIJjJujjIjJj ( : Button jAj jAuAj 4S4uijb 

.Graphical jj jjjjL Style ^jj<uj<ujLj <U uujj: Ijb 

: Style-2 

4J Style y^-jj Ljaa jjjjiu jûjûuu j»<L Lujjljjb 4S Down Picture ^jjûuw ^jjjSbjJbJj ûmj: jj ûj:jLS4j 


.Graphical jj jjjjSb Standard 



. juujjjj jlSjjb JJJAA List ,jfi 4 J AJ JThiJjiJ Ij<U jLSdîfiijt ^JjJuun 4 J jLSjjb ^ j ûunjji jj - 1 
. jû::l: Sorted=True jujLj <U Ijbjjjj j:j<u jj<ujjj ^ibl: jj -2 

. jûj:l: jljSjjb: ijjjJj I: Height AJ Ijdi (jjj<u ^jjjSujb: jj -3 
jû::l: jljSujb: (j:jbj Column j 4 u Ijb ûLujijS Jj4.?4j jjJSu jbJSJÛuoJ (JjjJj jj -4 
Integra height = False j^«: Ijb jjjjjjj juujjj ^jjju I: juSjj ûuoJ jJjaSaj -5 
^u 4 j <U tj 4 i JJjjl jub ^iLuSjlSJj ^j<u I: List box <U ûb^ji <U jûbj ( ^:jljb 4 A ) ^i: jSujlu: jj -6 

Ij 4 j jjjijjJ 4 A jj 4 J jubj Iamj ûbjLS<u Ctrl i jji 4 j jUbuj j 4 S 4 i j»Û 4 j Multi Select =1 -Simple 

. jjjjjuJ4A Multi Select =2-Extended lujj: 







UajfeJ 6 tsiê 

fcLSjjtyiJ <U JOS LU 


jt&jb-Li 

i£6$J» <U jU$Ij 

form 

frm 

picture 

pic 

label 

LBL 

text 

txt 

frame 

fra 

command 

cmd 

check 

chk 

option 

opt 

combo 

cbo 

list 

Ist 

horizantalsb 

hsb 

verticalsb 

vsb 

timer 

tmr 

driver 

drv 

directory 

dir 

file 

fil 

shope 

shp 





(£ş&aj jj*j\şjöî d£ Visual Basic i£jL£$j jAm ^[£&jAm 4j dl a£j£aj Jfidjdj 

jj Modules ^Sdjlif ^a\jS^jj ^uj4Sjjj j jjS 4j ^uj4£)6J j j*jj£ ^jL5jj ^ujASjjj 

** ** V V ♦ V V V 

.LUjJJJ ^LbJ 4J 4 jIjIjjLj j»4J (£j£4j (J4iljl£ ^4 j. jçUjUJ jU^SjjJjJ <jJL£Aw4J jjj4A 



The Form Layout Window 

iJ4S A u j S juljJJJ 4 jJ^S IjpAJtjP jûU 4 mLm (Jjjj jAw 41 jJdSj (JjLjj jU4S4jjj£ ^ y jjS jûljJJJ b4Jdj4M4J j>4J 

4J ^ 4j jLwb (jujU i£jA4j Form layout ^aj4*j 4 j 4J jjj& ^jj*j ^Jj jSjj jjJSj S lwh 

.J’jIjSjjUj foi^ tjjJjSJjtS ûwj: yilSajlSjjUlwjijljj- (J4Jjj 4J 4S.(Drag & Drop) 4j Qlj lwJjJj 











jL5jJj£ SL&j 

Ij jlS::jS 4j jjjJljdjLw t uJjii (.jjjjJjjdiU jjjJljdjLw JdjJJ jlJUjAA 4JjJ 45wijj ^SiwU jL5jJj5 ^uwjjj 

. dj:j5 Ai jLwJ^IJuuJ jb :j j:j54j4A AJ «j4jj454j :jLw jUj£ jj:Jb jjAA lujj: 4jjj Jj^j jjULj 
jj ^4S::jS4iUûw4J4« ^jjljulj jAjjAwAi Double Click dwLSjj: ûL:: □jjJlw JJjjl IjuU jA4 jj :j£ ^yuwjjj jj 
Private Sub ^4wjj jj:jA4 jljjj 4 J jL5::jS * ûjj4 S«:j4: jj jU:j:jlj^ ^4j:j4jû 4j j4j Uûu jj45j juwjjjj 

jjwjjj:: End Sub J)4S4i 


Projectl ■ Form'î (Code) 


f urm 



Prfrkite Sub Forrn Load(î 


l L °»* 


<Uiu jj Ujjj :j iy 


AJ 4*^ jlyliyj Jj I34J AijjJJJa 


rJ^ eJ. 


^JULUjJJ jJ LLUjjJ ^LwL 

j»4J ^4S4J^lwS Jjiw 45 jjjjJ JjJjlj^ (J4jULwU j4Jj4w4) 4ÛmJjjJ Visual Basic (J4aUj4J ^jLSjjjS ^Uwjjj jj 

. 4J4JJjiw 

j IjjU (JjU . (JJj4jJ 4jjlû (JjU = £jj 

: 4jjjU 

jjjUjS j4j j4w4i j:jS ûUS 4: (J:j4j jj jûjl: Command Button jU4S4«jjj ^jLSjj j4w4J wuj4jUj j4S4j 

. jjjjL jU4S4wjji y5i:j 
juiijji:: 4j:j1w ^4j 4jI:jS j4j i£:jS 

Forml.backcolor = QBcolor (Run * 25) 

( 4j4j:jIj5 45 ;j 4 jjji j4j IÛIj ) Form 1 = jU4S:jljwU ^jU 
( jU4S4«jja ^ajjljSSU Ulj ) back color = 4S4 j ^jû4jj 4^jU 
( lo£::j:: diSjjj diSUS j44 4: jd: jU :j ^ljajjJj^j i5i:j ^yjjjl Ulj ) QB Color(Run * 25) = £ji 






jlÛJj'JJJ; 


^Lşû 4Û ^AJuAj LS<u 42 ^4jljbj2 j4j jj« 4A <U <U <u ^Sjjj b Visual Basic 4J jbjjj 

.Keyboard jLS4«Sj: sjblû j Mouse j«jU (jjA <u uIjjj 

: jmjU jjLSjAJj jLS«jl:jjj - 1 

* v 

u!:::jjj 4bjt:j2 JjjljjU j<u>4J j:jS4UiSd4JS!ji LjIj j:jS(4UiS :Click/! 
.ûl:::jjj 4Jjj!:jjj UÛ dbj)jjljj4«4j j:jS 4U1Sjj: 4j LûljtDouble Cliek/u 
.û!::: jjj 41jjI:jjj jJ4:::l: (ibjljjU j4u4j jyjU dJûLS lûlj *.Mouse Move/ç 
.ûl:::jjj djjbjjj :jljjlÛ j4j ^UÛjSl: ^ÛLS 4J ûLS:: :jl>«IÛ j4j j4u4J i4U1Sj4ulAj124j Lûlj:Mouse Down/: 
.û!:::jjj ûbjbjjj L>lû ûûjS:JÛ44 4UIS 4J ^Luti j4m4jIS4j JUûLS j:jS 4UiS ^lj: lûlj :Mouse Up/4 

: JjjmS £jLSj44j jlS:j!:jjj — 2 

.ûl:::jjj DjjIjjjj LaUj 4S::jjjjS j4w4l ûjjSj!: jLS4«Sj: 4) ûUS4j j4u4jLS4j ûUjLSLÛIj :Key Press/I 
LLLû ÛJjS4û44 ûw:: 4)4 j:jU 4S::jjjjS j4w4l ûujSj!: jLS4«Sj: 4J ûUS4j j4m4jLS4j ûUjLSLÛIj :Key Down/u 

û!:::jjj 4ûj!:jjj 

. jjjS: Jj 44 ( 4S4«Sj: ) 4S4j ^S j4u4J ûu:: 4S û!:::jjj 4S:j!:jjj 4ÛLS j4j lû!j:Key Up/ £ 





^JJJubjAJ JÛ4£ 42 (ûljdj J«b<u Ij jtS4u4jy 4J ju4i jljJu J jjU i4Lu 4U j}jjj,U (£4«bj4J i£jÛ4iuJ jûluj (£Jj4j jj 
■ jh Jji jUwb jiuJ 4 S (J4jIjI jub j4l jJj 4 A jj jj4iu t4lLu£ljJ 4J ^jLjjj4w ( <jS4JjjjjJ ) 


(t4S<U if4«Ljj4j • 

■ jj4SjJLU LUtJJ 4«bj4J jJjUUjj4w4J JJ jJj4SjJj4w JjLw4wbj4J ^L^J^ (£jjj4J ^«45 4J jJ4jL 4J LulU 

: lJ4S4«bj4J 4j gjbb 

jj jji ^blJ uû4ujj^ JJ Form ^jjî jb 41 4jbjjljub ^ÛLuAjISAjj jblJ ^U^jjjç l4jU4i4«bj4J4J jjub 

. jLSjjljjb 
: - 1 - (jtwj4«bj4J 
. Visual Basic 6 (J4»bj4j j4w jLu^jj Ljjj4w - 1 
. jj45u (Jjbj ( £jjb ) 4S4jjjb lijjj- uLjj jLwb -2 






Jjd&S sjjj jLwbi^ . jjd&j Open jJlwJJ 4LIS LxLû jj jjjjjjjAA Standard EXE Ijj jJJ 4ûj aS 
jlSdjjjiJ c£JiJjjjjj dj jL£4JdJ4*j JjjD ^ldjJLu j jLSjjIjjIj ^jJLu j Form <pL£jj4nj 4 j 4S 4 luj4Sjjjjj ^Ujjj 

Jj 




iJ IjJJ iiJU4J j^Jj4Jfij 4J (4LS4 Jj4& 4jUj4j ^Sjj4w ^j^jjjdJ jjjb jdSdJ 

. jJ4SjJ 4Sjj4JbJ 4J j^jLi j 4«4J dLdS lJ VÎCW <U4ul 4) . i4)4JJj4JbJ 4J j4A i£Jj4JJtjlj4S 


abl Text Box ^jlj^Lj^l jj4SdJuj wujj IjjjAw< j»jji Sj^3jjAwA3 jLbb jLSijlj^lÛ i$$jL4 jjAj Llmûj -3 
(ijjjj j (ijjjj ^jLS ûwjj Lxuj jûjJb wwAjJw ^jjjw 41 jjj£*j J5jjljj|j ( Drag & Drop ) jlwoSlj ^j^iw <u 
^jIj j i^jjjj jlS4JJJ4w JjjLj ^ySJj 41 jLj jwjlj i^j4wjjS ^4 4j JSjjIjjLj ^jSJjV ^LwjSIj ^4 4j jj4SjJ 4 SjjIjjU 

. jwj^JJJ juujjj 4J 




j4A iJ jU^JU4U 4jjU UmiU jujlj jfiji^ (ij^ii) j4w4l jl^jjljjU Ji$4A 4Sblj 

. jMiiJ 4SjjljjLj 4 j û4jjLj ^JjS jlub 

41. jjwjiûj 4ljjlj^Lj 


i^LSjj j4w41 ww4j4« ^Ijjm 41 (Drag & Drop ) 4j j44 jjjjil44 I Command Button (ijljjlj -5 

41 jljjLjjljy 4 J jLwLwjl) I J 4 wJ ^ 4 J 4 «Ljj 4 J ^ 41 4 S wp 4 j ju 41 jUw jj 4 j . i£a Text Box Jjj 41 ^UlJ 4 S 4 jjji 

. dj jjjLÎjjiSjj fijUjj* jj £>b ^ djb jS j*4j 4 jIj4S 4j4A Command Button 


jLjjAJ j ^jJjJ £)LS uudA j*jji £$jj j4w4J jLSdjljjlJ 4J JlijljjLj j4A jLêl«Jj j4^4j 
j 4 ) dldJb j 4 A lj 4 J ÛUj 4 SjJjJJ (jjiw ^)b Ûw 4 & 4 S jJ^SjJjJAm L fei j jJ 4 SjJ 4 Sjj!j^Lj jA^ 4 ) JldS Ij 4 j jJA 5 j 

. jUjjIjjLj j 4 j ^jLSdJjiiJ AJ ddJjiiJ ^jjS ^j& Aujjj uuoSjIj AjVb 


jJASjJjJj jLSjjIjjU dJJilfi |» 4 J 






jLûLS<Udj<UJ A ajIj Sjmh 4k j£u IjAj Command Buttoiijlj^ j Jj Text Box ,yLjlj (jljj -6 

aj ^Ijjaj tilJj jLS<UJû<Uj<Ujtj ^yjjjl jLwU «j UJjjijjlj j4A j<w<U jj>5 4LUS 4 j b- jjJij Properties 

tJJJjlj^ (J 4J 4 lm.* > ' J4J ^JjJjS 


jLS4J4j4«J 4uLj 

jLSjjljulu 


(JJU44J4uLj 

(JjLj (J4£4£«jljMjj jjj 44 (pj4j JjS jwJj 

( ^çLLAJ J ^1Lj4j 4J ) 

Text 

Text 1 

j»jlj 

Caption 

Command 1 

(Û4«4J 

Caption 

Command 2 

^jUj 

Caption 

Command 3 


Caption 

Command 4 


. ul?a}j3i 4jjj l£ j4j jU4S4jjjj jjLSjj IJULû 4 j 4J « jlSjjljjb (J4jLj4jjw j4j .JjLSdljjS (Jljj 

*! !! ! v * ! T v 



ûl^dAjdA 4J$$ifi j»4J ^jLSjj iJUbbJ 4J jISjjIjhjIj ^sÛLjAIum <*4j £)LSjljj^ ^IjJ 

*! !! ! v * ! ** v 


i 


UJU j jj (Jjji dljjljjlJ j4A jj JJJJU 4j4J ^jLS LLmoJ JJÇjJJ JJJj4w (J4JJjlw j»4j 4i4jjji (JjLSjj (J«j4J (JljJ -7 
ûwJ j jj (JjjS LbtJ jJ4SjJ 4SjjljuLj j4w4J Double Click UkLSjj: lj4J UkjljulJ j4A jj jjS ^uwjjj jj . jUtfjjJL 

. jUKjjjjJ 


: juujjjjJ jjjS !»4J 


I»jLj 


f»jLj (JJÛLajS jj /I 


Textl .Text = "jSLw jjjJLL^j j^-jJIJUA" 


IjjjjjIj^4J (Jjj4j i41jj jujjlj End Sub ^41 Private Sub Click £jjj jjjj 44 jljûi 41 jjjS |»4 j UJjjjj' 4 j 

jjjjU 



yajfej £ 
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. 4j i£JJJj4u<4l |E3j jAmAJ jJjS i»U1S |£^A 4j jj4^jj|j i£>jAm 4j jLwLş 

: jiujşja a$S f>Aj fcJ'UAj (4J4«4 j ^JjUjS jj /u 


^Jjljul4A ^u >w 4J jLSjJjS t£dj4fU 4 j ^Luu^Ij jT. < : ^uljJJJ ^iwjjJti jj £ij& 45 4 itjji ^jIjjU i^jj4jj4j4J 

: 4jj£l£ fkjj jiwfJu £i tfijS LbLu jjjjjjJ44 ( Ommund 2 ^jijjU jl5jjljj|j 



(Command2) 45j)I>«Ij j4w4J 4jjj5 dU5 ^jjj 45 jjjjj jUujp- i^454j5uw^S LSjj j4u 41 jûlpjj Ujjj4a jj 

: ju^jjjjj jj tftijS f»4J jLwU jj* jU4S<Ujjj lijjj j4m4J 

Textl.text="25" 

Ujjj 44 jj Private Sub Command 2-Click() ^jjj jjjj4a jl^u 41 jjjS ^4j j>ujj ^jjUjS ijtjlu jU44 4j 

. End Sub 
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ijjj4j j4J4l ûjwjjjj jj£ ( (Wj44l4J ijJjUj ) j4j^w ijJjUjS ^JjS 4S (j4jjjlj j4J 4uiwJ4l jJ LuwJ 4Jtj |ÛJ /g 
: 4j4jjjlw j4J jw4S:JjS 4S «ÛJjjSj: 4S4Jj44l4J ijJjUj I^J4J j»5f4j jjjuuJ ^jLSjJjS ijjjiw jU44 4SjJjS ^uwjjj 

****** * **v * **** ** ** 


Textl.Text ="4748599" 


ÛjJJJ 4jjjlw 4J 4S4 «Lj4j 4J Lu 4 ^JlûjS Qlj jU4S 4*Lj4J4l 4jjj£jJJ (jJjS 4S JjS jjljj /J 


End 



jjj£ UklS 4 j jijjAJ ( jj4ij ) Jj4jj45j ^lû jU4S<Uljj4j jLwU ^4JJjiw4J juljJJJ LLtoJ -8 

iSiij^uS j4wu4j F5 (j4*SjjJ 4j jL' 4 jbJ 4J 4J Jjj’Ujj . 4J44 Ijjjjj4w ^JJ 4j jLSjjtjjL ^utul 4j <L | ► | ^jjSjl- 
(pj4jjjS ^ûlû ^ÛLS 4J jjjJjjJJ jJ lj4J Ûj4jjl: (£4S4 «Lj4j 4J jjj^jJJ jJ ûwJjU ^4«SjJ JjS ûjU4j jjûL j4^4J 

. jj4SjJ ûLdS | ■ | Stop ^jjSjlû jjjS^4J^ ^jjSjL ûûL)4j 41 ^LS 


. j4Sjj jwL t: jjjLftl: ^S4 j 41 Ij4j jU4S4«Lj4j ^jûwljLj jJjS jj4£ jJ-9 




(Save) ( jLS&jj *JJj5 jjb) jtaljL 

m 

jj< jj^5j (Save) jLûlSjjlS 47mjjo u j4jj.u«jS ,jjLS4jbj4j 6ty}j 4) UIjj^jjj 4A <jjjjSjlj4j ijljj 
jA4 jb dj wbjL^ ^UjS)4AglS AJ uutêdA jbdj jjjj jlj4J (JljJ AJ jjjm jb4A AJ I JLuJ Visilcll Basic (J4jbj4JAJ 

4J jjASj IJLU (Jjlijljjl jb 4J jjASj £>LSuiUJ juljJ4J jjljj 4S jj4Sj (Save)jjA^ jUJ54jl5 UÛ44 Ij4j d4J4jjjJ 

! UUJ44 4J4JbLW j4j j>«4J4j£ jj4^ jAJ jjjSj ^jljJb jb 

jj Save Project As... jbjj Ij jJjS jjb Aijb- j 4 S<ujj Save Project j4u4Ji4IL1S UFile <^4j4J-1 

. jJjS jjb 4J J4JJJ jljb 


^ave Fgrml Ctrl-l-5 


Ffe Edit View Rrciject Fornnatj 
Ne-w Rrgjeet CtrL 



: 4J4jljj- (J4J4jjtf j»4J LUj4S*JjJJ jj jb Save iJJjAJÛ 4J -2 



(jjljjJu 4b (jjb Ij File Name <^4 j4J j« jj^Sjj &bj 4S4jjj£ jjb <yjj« ^jjjJj Ij Save in <ju4j 4J 
Ij jjuuj (Jjjjjj 4J 4ÛJ 4S 4jjj4J jj jj4Sj jijbj jb4Sjjjjj 4 j u4ub <$jb jûljjjj. (Forml .frm) 4S4jbj4j 
. jj4Sjj Save j4m4J ûUIS jLwb * jujjjjj ( My Project 1 ) <$jb 4jbjjjjj j4S4j ^jj4j j4j4J 

jbj4j 4J jUSuljb j JjS jjb jb4Sjjjjj I TmV) 
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AbLd ûjj\£»* LjIj ) bli 4j u»jSj &mj£j Ij4j jU4S«jjjj ^jjjj jIj4j ijlj: 

4bU Jj ^4 jIjIj 4J - ( ûljl>jj4J4jl: j4j4J >mJ Visual Basic ^4»ljj4J 4S 4ljj4JjMJ>jS j4j4) jûi^J jLS4J 

.<4Lj4j JljjşU ^4abj4J 4 j wujLj ^Jj:jj4j 4£4j j^4j 
: jJ4Sj JJJjljj- li^jÛLj- |»4J iiJJjJ4J uLj: Ij4j j:jS^4J ^ <jSubU ^JjS ÛmJjJ jj U- 

Make Project 1 .exe. . . «< File ^ûmuJ j4u4i 4U1S - 1 

ûÛ£*:jj: (J4JJJJU j4J Ij4j Lu? iJjLj 4J ûijljS4j jj4£ jU4S4«Ljj4J jjjUj4^4j 


Print Setup. 


Ma^e PfojectLexe-. 


rou 


Project 1 4J 42 djlJ tjAJ ûLl I j2 JJ&P &l£ a PAJ> a P ^j$iw4J 4 Ij$LJj 4& 4J jU424aUj4J j^AJ j»Û4J 

<j7 ûta) j4m 4Ju£jj <jJ124J Ij4j My Project 1 aj jLaj^Jyy i£424jUj4j Ajjj a i jj lo$42jjjjj 

Make My Project 1 .exe. . . «< File 


1 Ö Print... 

Ctrl+P 

0 Print Setyp,,, 


Make Fkiy pro jfict 1 »exe , . . 

1 Mabs P:£qsct Grouî* . . . 


1 



. jJjS^AJ^ ^Jjlfi AJ jJjiS jj4£ j^J jj42jj Save jAmAJ d L dS LUg'JJjJJ 42 i£4JJj4JfiJ 4Jj4J jLûLj -2 
d L dS jLfiU 42 4 j ^jL2^4j^ 4bU 4JJJJJJ UbjU Ujjj4& jj jJ42jJ ^jLjj jJj 2 jj4^ ijj) (7i ^jjjJj jjblS jU4^*U 

jj42jj Save j4w4J 

^ ; TT^ ; ; ~ ~ v 

Jjj42 (^Ij^ ^jJl^uûJ 4 j 4LyJ4J ^JIjjoi ^£4aLjj4J jJjJJJLw 4 jJJjL£ 4j ÛJjijJ jJj4j (jlj4jJ^ ^4J LUaJ 4JJjl2 ^4J 

jJ4JJJ jL5j4A 4«Uj 4J jJjûj^U JJj4J 


Jj j 4) ^ j24j4j JjUj j124jU4j jlJJjJjJ 4f 4lJj^ ^424 J ^4aLjj^ ^ll2j!j4) 4J^Ij^ jJj4j ^j 4U£^ 
jJjj^xb ^ljlJ .4JU424J ^4aUj4J 
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^um^jJ J jJ I Sjj jJjiSiif’ J* jiMQi jUjU4J ^LuSljJ 4 j 4S4J 4S 4j JJ^jL& |J ^j4£4j ^w4j 4J 4£ ^4iLwU jAi j£Jj4J_$J 

pdSa jLujjJ j»ljjjj4J (juUjM . (jt&j 4j|jj4J 4J ju4jjljlj ju |»IjjJj4j 47 mjj) jj jLû LSUl^J 

4S4Uljj4J 4J gjUU 

^ilSjjjS jjjjj&^&J UjjjJU JJ ( Jjjljjj JÛ4j; jj jljjlû 4J4j ) u4jjlu ^jljjS JJ 4«Ljj4J ^jLSjjljjU ^LuAjlSA.' 

jjjJwj j uLS JjIjj4j 4J û4jJIÛ 
jlÛ4lwJjjj jjljulu 
ûLjj 4jljl IjjLj f>Jj jUûuujjJ UÛU4J4«Ljj4J j»4) 



( 4jij 1 ) Text box -1 

( 4ilj2 ) Label -2 

( 4ilj 1 ) Timer -3 

( 4ilJ 3 ) Command Button -4 


: jrLuj 4 jUj4j 

jj4S«jjjj 4 jjjÛw ftJj jU4S4«jji (jljjj j4«4J jLS47niJj) O ijljjU - 1 



: jjjjljj- (£4ûjj 1£ fk4J jj ( 4 «Uj4j ^LSjjjjUjLS^j jjljjU t£JÛ4«J4ulJ ) jU4J4ixw <jûjjS jLwU -2 


jLS4jJÛ4«J 4ulu 

jLSjjljjU 

tH 

^Jb^UJ AujLj 

( ^ ) 

Text 

Text 1 

( jJÛ4JJ t£Î??4J ^JIÛ4) 4j ) 

Caption 

Label 1 

( jUj&JJ ^0?4J ^U4J 4j ) 

Caption 

Label 2 

jlfO^J 

Caption 

Command 1 

jljl)4JJ ûLS 

Caption 

Command 2 
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Caption 

Command 3 

l 

Interval 

Timer 


tpjAj jj JJ jb:j£ jlSjjljjb jLS::jS ^Jj4*i 4 j 4J. jLS<Udj<Uj<U:Q <yjjjS j jLSjjljub ^ibl: tfljj -3 


::jljS jijb: Ulu ^LSj:jS 4S JjJjl^ ^ 4*.. ^ j*4j ^jjjjS 4j. uIJlj ^bu 4 j ^j4jjLj ^SjjIjjS tSbjljjb j44 


UmJjO 

jLSjjljub 

Label 1 .Caption=Date 

Command 1 

Label 2.Caption=Now 

Command 2 

Text l.Text =Time 

Timer 1 

End 

Command 3 


. Run jj4S:: ^^4j 4S4jb j4j F5 ^4jSj: 4j jb 4m 4j 4j — 4 



jkiU^ i4Ubj4J. 

. ûûjjJj: jUuJ uLj: 4jjj jjLjjj^u yilSjjljjb jijjj jjuiş yiLS4jbj4j4J Lu> <u<ubj<u ,» 4 j 

<ubj4: Ub 

^jLS 4J <sS<Ubj<u uLulS ûjjSj: lailSjjljjb Properties 4J jjLSjljjS jj^4S 4jjj4j l:4S<Ubj<u 4J ûw4 j<u 

.ûûjI: jjjS^ 4 j^4J 
jLS4Lu^j jjljjb 
( j JiVjJ- jJ ) i414j4Jj j - 1 

( <01: 1 0 ) Command button -2 


jruij <Ubj<U 



®| 







llu j4j jLSdJJjfaj AujLj IjjLuj ^jjljjU 41 -2 


jLS4jJÛ4«J4ub 

jbjjljjb 

c>» 

i£JÛ4U4uLj 

( jiw ) 0 

Left 

Image 

jAA 

Picture 

True 

Stretch 

( jiw ) 0 

Top 


: 4 lu gjjj jjS -3 

4ulj*d$$jj jljÛJjbJ (JJlUjS jlû 41 djjjs j44 ÛjUJJ 

Image jjl>«b-l 

uJj JjşUjJJ jkljU 4 j ijljjlb 4J jH4j uUj JjhUjLj (JjI JjS (Jj 42^ ijljrflu 4 j 41jj jjljjb 


Jj4JJjLw |£J$S -U 

ijJûUjS j4u41 lUlS Jjj :. ( False ) jj4jjjU jj Visible Jjj4Sjj : jjû4û 4ulu (yjjjl 4 j u11wjjiÎ4a jjjS j4j 

** * * *** ~v ♦ ♦♦ 

ijujjjjj JjjS j»4J jJ^Sii ( Jj4jjjLw ) 

Image 1 . Visible = False 


jjj4Sjbj (jjjS -g 

.JJJ jjJ JjJj 4 JJjLfi |JJj£ (JJ 4 4 J 4 S 4 U J j 4 S 4 J 4 J 4 S 4 UJ ^Uj 4 SjbJ jj JJjS jk 4 J 

Image 1 . Visible = True 


JjJj 4 w ijjj^ -J 

^JjJj4J j4w4l jw4jVj»- j»4J« 4SjJûUjS j4w4l jLû JjS 4LLS 4J jjjj4wjj Image 4uj (^jJÛVjJ- jj LUJjlSJjJjjS j4J 
^jjjJJbj^JJj ûuş^JJ JjJj4w jJj4J Ûw 4 j 4 « (ijljjLj Ij4j jjJluJ j»4S (J4S4^-jj j4^4J ûJÛjjj- 4J ûuJJJ ( ^jjjlw ) (JjLu 

.LUJJJ 4 JJJ 4 U j» 4 J jw 4 SjjjS ÛU£«J JJJjlji- JJj 4 J jw 4 S 4 ^jÛ 

Imagel.Top = Imagel.Top - 50 


JJJjlj^- |JjjS -4 

4 j 4 JJj 1 w j» 4 j 4S LUW J ÛJ jjs JjJjljj- lijljjb jj LbûljJJJ L u l U fbljjlj 

Imagel.Top = Imagel.Top + 50 


36 4yê$*êl4@ 

Ûttlj (^V —j 

iJöjöjdJ j&udJ JiA iMjP' pdJdSûdjUj Sj&udJ jUj Jj5 iîLdS 4J uwlj (^Vjj ItliagC 4ijJ JJ JJjS j»4J 

^454j jj ûijJJ umIj jjjJU Ûm4jJU ^jlj^b Ij4j ûljjbj gJ&J&jj jJÊJj iiljjjjj* 4J ûIjjj ( ^J^mLj ) 

.LLUû^JJûjlS pJJ JLJ& JjjS ûl^JJ u4£ jJj4J j24£4^jJ 


Imagel.Left = Imagel.Left + 50 



£*}s -j 

Imagel.Lefl = Imagel.Left - 50 


( 4S:jljjLj Width Height £ jjAj ^jjjSjljj Dlj ) luuAjAa £jljj|j ^ijStjjdS jj ûjijLSaj tjlyL) ?>dj 

ûltti 4j«jJu2 j»4J JîiiStijS 

Imagel.Width = Imagel.width + 100 
Image 1 .Height = Imagel.Height +100 


jjjS djjşj ii:jS -d 

Image 1 . Width = Image 1 . width - 1 00 
Image 1 .Height = Imagel.Height - 100 


End 




jj 4 j4j ( 1 00,50 ) l:<sjljjS jA) ^ljUj jAj 4S jûljj :j4 j &udpj 

■ £ASj JjlSluti nmji) n ^JjJjS 

uûlp:: jj 47 niil 
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Luijji aiLu Calculator jUjj! jjIj ^UuA>LS4j4j 

jLSdjljjU j UiJjiiAJ Aj jj iSa lmhjjA i f lnij4 J jjjjLU (£4 jUj4j JjUjjj jduAJ Jjjjjui ^4 j 41jj Ljjj4m 



! ^LuijL^Jb (jrjA 4j 

Optionbutton 4J 4j|j -1 
Textbox AJ 4jb jju -2 
Command button 4 J 4jb d4j -3 


jj j^4Jl J^S j4j jj4£jj ( jkljfcj 4 j ) (JJULjjS j4m4J i»U 1S jjjj Ly u 

Pricate sub commandl-click() 

Dim x as integer 
Dim y as integer 
Dim z as integer 
X=val (textl.text) 
y=val (text2.text) 

If optionl.value= true then Z=x+y 
If optionl.value= true then Z=x-y 
If optionl.value= true then Z=x*y 
If optionl.value= true then Z=x/y 
Text3.text = Z 
End sub 


F5 4j jJ^SjJ^ djjjî? 4S4jUj4j jL2L| jj 

jutfj^jjJ j»jjjj ^JjLtj IJ text2 ^m4j 4J Ij jJljJ4J ( 5 ) lJjU4J4jj>«j j»4J JIjj juujjjjJ <J4JJjUj |J Textl ^w4j 4J 
• JJi^JJJ 1 20 ) UjU4J4jj^<û )k4J 41 jj jJ4SjJ f>y*j 4 j tfJÛUjS j4w4J 4ULS IJ ^jlû]£ 4J ( 4 ) 41 jj 



jp&Jj .û<u<nj New Project b Visual Basic ^4 jUj4j ^jj4ijjS ^ljjj4t« 4i jûljjjj j$£ /1 



$ ij&jjSJ jj jUjjj 

(J&uj JtiiJ (JAujSjifp 4 i lulj New Project $6jJM 4J (JJjJjlj^ ^JJSbjZ jlj.f jAj 4J jij5 d Ul S 4 j/j 
.ûjj4S4jjbJ4j <u«j<uû 4 j j»4jjjjUb <U Qlj Don't show this dialog in the future 


Visual Basic 4»ljj<u ^Ijjjju 4J i$a$A j jj «j<U1uj4SUj jûljjj : jjç New Project ^jjAjû 4j ^jbV ^Ijj-2 

î jJjjjjJAA ^jUAmJj jUj£ ^jjjjjLjJj jûfBJjJJ A&djJM 4J 

UUIS Environment <U jUlu Options j<u <LU^j: b Tools JLuJ <U Ij4j 4jijj (Jjbb j»4j ^jj4jIj 4S jj /j 

. jj4Sjj Prompt for project j4w4i 
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i£)LSjjj<u«U jaS Properties Windows <ULS<ujû<uj <ujQ tjjj4*j 4 j aS jjjuû <u jjj&jjZ -3 

$ jj4iwbj4Sjjj jjç jjj U4j Visual Basic 
. jjdSj j Properties Windows j<U/<UJiUS jLûUjj View <^uwU jiwJU UUIS /j 
. Jj jJ jS j An> JJ F4 SjJ Aj jLjJJU 4J 4J jULyb (jS^jlSjjJj jlujj 


Properties - Forml 


jForml Form 

Alphabetic CategorsZÊd 

^ppearance 
^UtûRedraw 
3a:kColor 
SûrderStyle 



Caption 

Reburnsfsets the test dispJfl'Şwrri arr 
cfciject's titte öar or bebw an obiect's 



Îjj<LLûjj4S*j jjç uLjjj j^jjjjj (jjjjjjjjj ^jjJUy 4 j jjS blu -4 
. jj j j j S j At«4J Ctrl+R ^JjSjJ 4 j jb4jsj<u 4 j jubb /j 


$ wûj4SjjJJ 4S4 mLw 4J jJ 4S4jjjj jb4SjjjjJ ^JJjS <^4j ^ ^LS 4i jb4SA«jj£ 4S jJ4SjJ Ij jj^ -5 
Guide Umj jjjj>jjJÛ4A Resolution Uiu jj4Sjj Form Layout ^jjAşb j4w4J ûwlj ^SblS /j 

. jjjJjJJjÛ44 


$ jU4SjjjjJ jj j»jJ>Û44 Û4 jjQ j*jb i£)4wjlS (Jjjiw (ûljUJJ jj£ -6 

Mouse icon (JJjjlûjujQ jjûu^jj jLwb jj Mouse Pointer = 99-Custom (JJû4«j4jjLj jU LujjJb /j 
. jj jJ jJ J JJ 44 hw4j4j (Jjj uw jj4SjJ jijbJ Jjljrş&44 IJUJ (J4S4wjb jij4w jrşS 4S iJ4 ijjiîi j4J L fcuJ 






0 @ti=a<a 

î jruvjjJu Command Button ji£tJji»jS jAwAJ ( £ub ) jjLûlj iJ&jjS jrûijja jj? -7 

jjiSaiJuJS Command Button (ijljlj j<u«<U LûjjJU /j 
t>Al Ajjj*j jj juttjjja jSjJj Lûlj A>i* li Tool Tip Text (jJj<UJ<ujUi <U jLSjjjLuuj jUjLj ^<u <U LaLu 
( Tool Tip Text: jLSjjl jS jjJj JjjLûlj jajijijS jj ûjjjL S<u ) ajijmjjj teajlu jJj iiltAjJjjjv 



? Deslc top jAjJU lujJj ^jJj'Xjj? (jbljû Lupaijaa jtejjj jij 4SjuLjj4j yjjjS^Jû^ ^jLS <U jûl>jjj j j? -8 
.Moveable=False !j jLS<UJj<UJ <LuLi<U jLwb aj jjiSai Form jijni U UUiS /j 

$ jjjS^ <u ^ tfljj jUASjUjji ^jijS Center Jjjjb jj jj<Uj ^-9 
.jjjjjjajjiA Start up Position =2-Center jLwbjj jJiSai ^jjijJUJU ULiS /j 

? ûj^jSjjjj: jU<LS<Ujjî Ij Taskbar <U jj? j: jS^i û^ ^jLS^U -10 
. jjjjSjj Show In task=True <ujjû<uj jujûjjû jlS<uoi<uj 4uD H LxLu jjjjjjajjis Form Ljjj<u /j 

î uJjSj: Ijjj- jjit jlujh JS JjUjAj 4J 4S<UjU- IjJj ^ujjIj jU^SAabjiJ jb4J Jjjj ULuLS — 1 1 
.Clip Controls=False <u jjJSjj <ujjû<uj JjjDjjû jLS<u:û<UJ jujLÛ <U LaLû jjjûjjjJÛAA Form LjjjJU /j 

tûjjS<û UÛj ^jlSûljjS AS Ij Textbox <U jjJÛÛ ûLûujjj<U Ij jj^ - 1 2 
<U jJiSai JUijJû<UJ<UjLjjJÛ jLS<UJj<UJ AjjLj JU LxLû jJ4Sjj SLLS jU4S Text box j<U<U LjjjJU /j 

Locked=True 


« jLmU ÛÛjSj ^ ljS<û Ijlu igÎJMjjj ûû Combo box jiSij - 1 3 
<U jjiiSjj <UiJjû<Uj <LuLij<û jLSJUJÛJUJ JUJlJ <U LULû jJ4Sjj ÛLkS jU4S Combo box j<U<U LûjjJU /j 

Style=l-Simple 





<9 Uaiifca S 
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^MeêQsb 


rsBo 





jLS<Ljlujû Sjb jb jljjjjlJÛ4u (jjlj d«j 4 jjjjlj: l:4SJUljj4j <^:jS^4û^ <pLS <U 4S jJjb-jj jAj jlSjjljjS 
: juujjjj: <u<ûw fkjj JlASajS . wujl: jljjl <U jLSJjjLûlj ^IjjjjAj djjj? JU jLûLSj >«j jb jj 

Emp Name $ =Input Box $ (" jLuLjjj ^jb ") 

dlttSjj djbl: djjj^jjt <S<ubj<u ijjduAjbjJU <U ^jLûlj ^jjjSjjj jj ûj:jL£<u Input Box $ ^jbj<û djjj? <u 
:bj ijjj i^jj iijb LÛ4A jjj j l i lu: I: :b A) :jb j<U AS ûliu :bj ûmAjjU ^jb 4S ûb:: jjLu^jLSju jU IjI: ûÛ^jJjj: 

^ <£<u iJjj :jljjS <uu:: jLwSJj jS:jljjS (j^jJ I::jjJ . uujS:: 

User Name $ = Emp Name $ 

jjjjIm <u jûjl: List Box ^LSjÛjj <U dluAi <u jjljjl j <U jûljû:: U:jjA4 :j 

Listl . Add Item Emp Name $ 

:d«jj4A ûLSu £jj ijljl: I: j:jS^4U^ ij<Ubj<U AJ ijijAjJi <U jûû$jjLS4j jljjjj <Uv ^ji jûlju:: U:jj44 :j 
Emp Name $=" j:JUI*4: j**- jJUua " 

jj<^ b:jj4A :j. ûjjSj:ji-<U ûjj jjJûA^ iJjjjÛjJujU String Variable ^lu ^jbjS ûjjjj:: j«4ûljljjS ?>4j 
. ( jLSJjjLS ju jjbjS jj ÛJjjLSJU ) :jbj 4 j 4j4ûjLÛ 4S ^jjjbj i^jljjS d:j <U <U jLS:jljjS 4J dûjj^ 


: jLS:jljjS ijjb ^ibl: jj lûjSjjûjjAj jjjjIj^ ^JûbLub ,»<û 

. ûuj ( 40 ) <U ûjj4û jûbj 4S:jljjS (Sjb 47mjjo - 1 
UJjAj LÛA J JjUj Lûlj ÛÛJ (S44AJ AJ gSj j jJ JMjjjjj !»<S<U 47 mjj o -2 

d:j (jjLSjjljub jb:j ( save , print) d:j 4Ubj4u jjj ^LSjjIjSjjUU 4ûjj 4J jûj ûiu jLSjjljjS ûjjb -3 

.(printtext) d:j 4S:jljjS <U djû<u <u ûiu <U4ûjj j4Û ûûjj: Ij<û juû$jjlS4j <ûLwjj j<û jULuj j4S4Û. (for) 
jjûbj<S<û :j ÛÛJ4U IjûLSjlLu jljûi <U (.) dûÎLS' jb :j ÛÛJ4U (Space) ^SÛjljûj 4S:ljjS ûûjb -4 
jLS4ujj ti:j<û:jSLu- jj jûul: ( ) Under score jLS4ujj jljûi 4U 4Sb- lj Ij4û 4 ujj jj: <U jjjjU dû: 4S:jljjS 

******* ** ^ **V v 




U 


j'k 



ibi^ &k 

V 

32767 134*3268-4) 

ûub 2 

jIj4j (Jjjbj 

Integer 

□4*2147483648 - 4) 

2147483674 

ûjLj 4 

jIj4j (Jjjbj 

Long 

- Û4* 38 E 2402823 -4) 

45- E 1401298 

ûub 4 

Floating Point jlS4j ^jj jjjjj jjbj 

Single 


ûub 8 

jlSjj^jjj jjjj jjbj 

Double 



Fixed Point jl54j ^jjjjjjj jjbj 

Currency 

Ou 65500 


ûuJ 4) 

String 



jLj j$ JjJj ^AjLmuj ^4^4) JjUjî j)jj4j j ÛLS 

ÛUJ JjjCÛj 

Variant 




.UUJJJ jUj *ULjj*U ^JJjiSj^ ^Jlju^ jlj$£ ^j^^ ^JjU^Ij aj 





J^^UjIj Jjjjud Ij^ uJjJ^4S4Jlj ^aSjj^ lJtSAj44U4Jj4A A& 

V ♦♦ ♦ ♦♦ ** ** V * ** * V 

.ûjjtili (V 

ariant) 4 j ^4 Sjjk 



i jLSdjljjS ^OjU^lj 

« — it- 

ddj ^j4j 4Sjjj? j jlS^jljjl jyJjS AmLuj juujjj Jj£ (jjL5jjL5u4A jJ jiSûjS Ai dlS4J 

Dim Name As String 

IJjLmjjjAw (J4 Jjj 4 J j»4J (bIjj «4j4A <5UjIjj5 uLSjj i*lmj4 j Jjjjj4 (J4jUj4j jîjljLSU 4Jluj4d j»4JtDim <^)Uj44 
jj IJjLlj 4j4SjjIjjS && String Ujjj44 jj « 4j 4A ^iljjS 4 j jULujjj 4«u 45 4 jjjIjj5 j4j (JjLj Name ^4wjj 
i4Lu4j j«jju4 (j4«Ljj4j 45 . luj ^uj ^SjjljjS Name (jjljjS LujJjUjj 45 iJJjii .ûûûjIjj jb4jjjû f»4j 

JjljjS j»4j jj jlj5 (JjbJ ^Jb yjjjS>5lJ 4j ÛXÛUJÛ44 




i. n /.jjvj. i. \- i.A.ie . 

• 1 ■ MrrW^W ^tWhvJiW «W Rw ly 


i <^S4J djlfi 4J ÛLuJ4J 

^JjjjjI (^4«bj4j Ij4j ûjj5j 4wLuj jumj (^jj4j^ 4j ûUjL54j djjljjS 45 duLS 

*♦ ♦ ♦♦ ♦ **V **V ♦ ♦ ♦ **^ v ** 

•ÛUJJIJ jj iijlj5jjbj ^jb ySoJUjjjj 


A) ÛLS^ t£jU ^LUt/jj^j jJjAdUj4J Al jL^ 

.ûju ûdJûb a ^L4j ^j4j 4j ^ (ijj ^Sjjbi^ 4 j û*j4j ^ajjul Ij4j Nama ûuw^û Name 

^iUujjiJ *U jL^UuJi).U IjAJ UJJ jûUl^AjUj 4S4J^ j 4S UUftJjJJ jJ jLoSiUIj 4J Û)4J4)^ j4^ jiJ jLfrUtUj jJSJJ p^AJ 

ûIjjj jjJS <»4j 

Option Explicit 



i»4j ^jLL^jliJj 4 j . JjIj 4J jb jj4^j 4j Jj Declaration section ûjjjjj) j jJûU^Stj ^4 j AJ jjj£ j*4j 

^J^ Jj Uy j»J AJ ûLjljjiS U l ^lS u^J4JASjj!j ^J jU4)4£ ^jU4j Jj UituaJjJJj^ ^ ûluuJ^U Jjjjud ^AaUjwU AjUj4d 

. b IÛJjAm AJ jJj5 4l/LuJ ^J 4j û L& 4S4 jUj^j 
jjj4A 4i lûlj JjljJlJ Ij IÛJj4m 4i ( ^4Jlj4^û 4 j ) ^4jLjjû jAJ ( ûlÛJJjlû ) ûuJJJ IjLS Option Explicit ^jUj4£ 
4j24j Ij Option^iwuJjJb jj Ij4j ûLSj jLS jU4S$jjjJ 4i ^jÛuSAj jLÛujj j^S . ûLSUjLS 4 SjjjjJ 

Yes jj jjjjluRequire Variable Declaration Uiu jjjjjmJu Environment 
^4«bj4j ^5J4 j ûjjb Option Explicit ^U>4& ^mujj j 4 j jULu^u 4 j jjlJ^S jjLJj44 ^4j Jb jj 
4»bj4J j4w4) uL5jJ uhmJjaj jjL5j 4 4 j»4J jib jj uujjIj (£$j ^54jjj4ju 4j JjU jjj 44 4J y54JJj^5 4 j i*IiiiJ4 1 

.ÛL5j 4*kLuU IjLjjj4u 4j jLSjjljjS jjj4A jJj 
: djdjlj^ ^4 jUUj 4£ j»4j <pUlpjLS4J4J juj4&Ij jLSojIjjS jûljJ^ LAjjj 4A oj 

Dim , Global , Static 

Jj (jjj4J45jlj iSlj^jj U JjljjS j4J b IÛJj4m 4U j4^4j ûj^4j jyu4j jL^wJj4J 47 mjj O JJ 

. ipiJJJ jU4j4A tfjU4J Ij4j j|yJjJ4i t$4£ jj Jjjj- j4j jLwb 



_44 yajfej 

(gjJjUAÊIj tjjlSJjU)& 

x — x 

tDim 

tjljjZ ?>jj ^i: ijijLS . lJjLS«jb ijJSjU <tf Dynamic Variables ^jSLwLui: ^SÛj Ijjl ^jS^lûuu ]j ûjjjLSaj 

J&>j\ijS <yjU ^jLjjS Aj ûj: uJlûjS <ji:jSjLS . 4l4u LIjjIjjS j]j <U 4Ûwjjj4j 414j 

{Redim 

jUiujj j4S4jjj jljiJj 4 mLuj Dynamic Array <jSLwLul: <^j4Û<uujjj> ( 4£jûa« ) ^jjjSjuLuj ]j Lu:jLSju 

jjj&j ijb: ) jîjljj 


<U 4j4j ûlSljjlS Ulj jlSjjbjS j]j jJ uUljjli L$j4J Redim ^Jûb^Slj ^jlujjj 

. Dim <^bj4fl d«j jjjU4Slj <^4u 

{ Static 

Lgjjj :jlj]l |»4 j <^: ijSjLS ijjljj . UijjljjSjLi <J Static Variables ^LjLU vSjjljjZ ^jjjSJmLuj ]j ûujjLSju 
jb jj Form g b- juUuLj aS juûju <u<£<u j4j <,14443 j<ii<U <y:jSjlS <y4«4j . 4 j<û dûjbjS j]j 4J 4ÛMUju4u 
■ûjûjuj: 4S«j4jj^«]S (j:b <U j44 j4A jjlj]S j4j ûju ^ulûjS 4S:jl:jS ûlûj]^ <u ûju Class jb >j Module 



Jjj ^uLSJJ L$j4J 4SLHj<4uU Static <yJÛb4Slj <yUj44 <yLu4jLS4u jjjj 
. . 4£4ubj4j <jjjU ^uLujS IÛ4A ûLSj: jtSl: 4S«j4jj^«]S <j:b 41 ûI1m4j 4Suj£ û4u4jjLS4u ûju4j nmjjjij 

{Private 

Form <$ 4 S<u <^uibj4u41 . USujbjSjb 41 General Variables jLS4u<^LuS <^jjlj]S ^jjjS^wLuu ]u ûû:jLS<u 

.uuuj: 4S 4S4u <^4u4j j4S4l <^4«4u L4«jj44 :j Class jb BAS i£4«bj4u ^Jub jb jj 

{Public 

jûljjj::j 4 j 4 Sjjjju <^ûwb j4<«41. General Variables jLSJu^ûlS <^jjlj]S <^:jS 4wLuu ]u ûû:jLS4j 

4Sjju«b |j:b 41 bjjjJbJj <j i (7iS4 ) 4u4S4«b4J <^4u4u J4S41 <^mLu4«4j j 4u:jjjU j4u <^S4u4 S 4u j44 41 < y U4Sij 

. 4S4«bj4u <jULu]S Û44 Jj4faLLUj: 

{Global 

jûljjb fk5f4u 4u4A (j Public yjbjUÎ jb44 4S ûu:jlS<U Luûu LÛ44 jj4Sûu4u Jjjjui <ylS4j]S 4jjjûl 41 j44 

. jLS4S4u 41 Lgi4j ûÛjlujj: 
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jljjl <ylSjjj? <U dJjj? dJjLÛAjAA jj IjAj ( jLSLuA 4j ) JuLmIj (^StUjjiw 4j jlSdjljjS yÛJÛb^Slj jj 

: djbJ djtjljj- 4J Jtj ÛUjJtJjtJ 


♦♦ 

ibiS 

V 

% 

Integer 

& 

Long 

î 

Single 

# 

Currency 

@ 

Double 

$ 

String 


My Name $ = “Ali shahin” 

.» String (^SjjljjS My Name ^jljjSlûlj 

: j4jjS 4 j (jiajb^Slj 

. jl5tjljjS 4J ûûjjt^ 4j jjjSj u4jjLj j LStj lj jS 41 4 U JU44 l 4 S 4 J4jbj4J4l jLwtUj j4S4j 
. jutjjjjj ujS ,» 4 j Ij4j Integer jjj^ 4j ju jbjjj44 j4SjJuj ûwjj A ^lu 4j 4 S 4jljljjS j4j jjb 4Jjj 

Clnt A 

: uJj4SjJjJJ jLSJÛoSjU jLSjjj?- JjJjljj- i^4J47m> j4j 


«♦ 

ibiS 

V 

CVar 

Variant 

CSng 

Single 

CStr 

String 

Clnt 

Integer 

CDbl 

Double 

CLong 

Long 

CCur 

Currency 


(Jjjj" 41 (B,C,D,E) LjIj ûLSjjûj ûwjj (B-E) jLS 4 Lu jjj jljji 4 l 4 S ^ 4 iljljjS j 4 j jjj 44 ûjj 4 ûLu j 4 S 4 j jj 

. jjujjjjj jjjS j»4Û Ij4i Double 


CDbl B-E 




g? t 


. ÛJjS4i JU 4l(-) iJÛLjljjj 41 jÛJlJjljJ jUuUj j4^4i 4ûujl) 



04^0 jjejfea UaaêUffi 

Al LuiijSlê jLu u»i F-D ^uj Aj ^4iLujj jAj LAjjj 4A :jûjj:j5-u jLuwjja ^juj 4jj4jL«jj jAj jLûuuj j4S4i 

. jujji:: jjji |»4 j IjAj ûjjjji: String jjjj- 

CStr A , D-F 


tLifetime and Scope of Variable jLua« 4 j j £) 4uftjlS^ &J>)* 

jl^ljjl* (Life Time) jLu^u^j (Scope of Variable) jLuAjL5aj £>I^j 

: ^Aj jJj5jj jfiAJlJ luLj 

: jLS4j - 1 

» 

JJ jjjçjj: LjAA jj jj j Cuuj j : I: JiijjjjjuMji i£:b4l 4i4jbjjj ^SuiijM j4A 4J jLu£jjL54j jûljjj: 45 jAjljljjl j4j 
<^4j4S4j j4A 4J ÛumIÛJ ^ jlijjljji jjj 4A t$Jj4i jj jÛ4J4&Jlj < ^J ) IJ454J 4J ÛÛJJJ 4JJJ < 454Ubj4J 

.4S4*bj4J 

Public ABC AS Integer 


: I:454j <jub j4u4l jl5:jljj5 -2 

jjIjjS J454J jijljlu^ . jjIj: jb4Îjlj UjLaj 45 u15jj15 I:45 4 j 4 5 4 j <^uub 4J 1^:4: jt u^jjt54j jl5:jljj5 juIjjj: 
. juu4::jL54j Private ^jbjjj ji:jljj5 jjj^ i»4j ^jJib^Slj jj. 4 jI: j: j5jL5 <jub 4J L*j<û IJûL54j <ju5 

Private TafTaf As String 


:jbj5 j4u4J jL5jjljjl-3 

4J. I::jl:j5 ^4 j ^jjjjj:4J ^uu$jjL54j jj ^SLujju 4J ^uljjbj lj:jL54j t41jjl:j5 <^uub j4w4J L^j4j 4jIjIjj 5 j»4j 

.:j4 lju «:: Ju45jj4j£u«jS ^:b 


Private Sub Form Load (Cancel As Integer) 
Dim S 1 As Integer 
S 1=5 
End Sub 


jj ^54 j4jjjaJ jb:j 

Private Sub Form Load (Cancel As Integer) 

Static S1 As Integer 
S 1=5 
End Sub 


juu4::jL54j Public <^bj 44 Ij 4 j uuu^jjL 54 j I: 454 jbj 4 j jjj4A 4 J ûLjjIjj 5 uuwjj j 454 j 

jûÛ4j:jL54J Private <jSbj44 Ij4j ûuu^JjL54J I454J454J 41 4j4J ûÛjljjS ÛÛWJJ j 4 ^ 4 j 
. jLu4::jL54j Static ^jbjJÎ Ij4j ûuu£JjL54j USjjI:j54J Ljxû ûûjljjS iuujj j454S 



X jLu<U4J 

— ¥ 

jj ûLSjj £>bj ojfjjS j4j ^i 4 « 4 j«j ul:«: jLlû jAj ^juVjLw (Scope of Variables) jjljjS jAj (JjIjj 

.( uL£jj jîjLjJ 4 Sjj 4jjuujS ^jLj AJ jjAjLa ^jjjb LjIj ) uL£jj jîjbJ jjIjjS j4j 4jJj 

:jj4u4j 4j jJjS«J jLû<U4J (JJjJjS 4J JîailS«jljjS 

.Global Variable jl£4jL£ljjljjl - 1 
Module level Variable ( jj4jû 4j j JjI£ ) Jjjjj ^iub j4u41 jlS«jljjS -2 
Procedure level Variable jLSjjbjS yiwb j4u 4J jLSjjljjS -3 


t 

(JjLj 4 i 4 4S4«Ljj4j ^Slujw j44 4 j ûLu^jjLSlj ûujIjjjj 4S j4jljljjS j4j Global Variable jLSLuicuS jjljjS 
-flj 4 uLU«JJ |J4Sjj4Jj;U«jS iJJb 4J jLSjjljjS 4S 4«bj4J <yLu4jLS4j ^jljjjj 4J jj4ulu«jJ 4Sjj4Jjuu«jS 
. jj 4 *i 4 j 41 414i ûjjûjIj Code Module ^jU 4«bj4j 41 jLS4j ^IuSjjI IjjS 
yjblJ jj 4i4J ÛJJjLS4J Ujjj44 JJ « JJJJU4J djj 4l4jjj4%j 4j guA 41 4S (J4iiLlj j4l 4ioS 4J jjL»4«bj4J yjjli 

.ûjj ^JLujS (*.bas) (jjSub 4j j jlS4j^LwS JjlJjS jLSjjljjS 
jjjjjjjJÛ44 Add Module Ij project <juul 41 Ij4j ijji ^jL4«bj4j ^bb ^ijjS ûujjj jj 
. ûûjjjjjj û4ulû jjLw4«bj4j ^jj4jû 4j jj Module.bas 4j jU4Sjjjjj jj ûûjjj ûujjj jj jLujj ^Subb 4S 






ujj j"i > ) 41 Global i£A2jj imLijfp Aji jjjjjSji^ IhjjJ ^GS Aj aS jJj ^uI^jjj 

Global name as string 

yjljjjj 4 j jJdSjj jjAm * jjû^jjLSJj <£<ubj<u ^mj jûjAA <U Name ^jljjl ûuilpb <ûaib4Sij ^Ijj 

ÛjjjjbjJ 4S4£ji 4S<Ubj4J 

tVariable Module level jjJbbAj jb Jib^LijA^Al jLSjjljj^-2 

AS ^14jjj4ju 4j jU Al jU jj JjLd jU ^ djljiS ^jUj j Ujj^nUy 4S j4j!jIj^S Jj4ju 4j j Jjli ^pUuU j4w4) jLSjjlj$£ 
^JJJjJJ 4i uJjJlpU |»5f4J4 jui^JjL£4J 4SAbU jU 4Sjj4jU 4J ^SyuJ^u jAA 4j jUljiJJJ 4 JjljdJU^Slj iJULp 
^jljjjj 4J Ij4£jj4jj^*]£ ^JU 41 Jw4jIjIj|S Jjj*' <>4J Jj 4 ÛJjJu$JjL54J 4JJj4au 4 j jAj jU 4bU j4J 

[)4^4i jyjjljlu^. uxlmLj Ij jU4i jLS4JjLulj 4 SAjUjAj <^jjLA ^jLj^S 4j jj 4 4S4jUj4j j4u 4i jJjiuJjU 

. jSULf jU4£jjjjJ (jS jJ ûşmi j^j 4A 4i jli4J ^ûuSjjljjl 4S 4 j Li 4 j^1uS jj ! j jl 
jJ ^Jlj4l ûlj jp'^JjAw iil4JJj4JU 4J j 4A jUIuJj J^J4A jUS4JJj4JU 4J 4 j 4£ j4^4J ÛJJjLS4J jyJjljjiS Jjj^ j»4J 

.jfUJJjLS 4» 4j!j!jji uLSj^ 
1 4JJjlfi 4J ûUjJ (£}? 4J Û4jjIu ^UjjljjS i4)4JJj4ftJ 4J j4A 4 jIj 

Dim Name As String 


^ ^LwUjAmJ ^jUb 

2 v 

. JJ^UjSjJ jUjJjiS ^£Jj4JU 4J j jJ4SjJ j^jjiö j4w4J 4 L dS Jjjj — 1 

.General jj jjjj&aForm aJ-2 

. dihjS jijj (£$A 4J jJ (jûwy j<Ui/<U feujjjti j^djljjS jLfib JJ-3 

Dim Name As String 


tProcedure level Variable jiStjtojS jt&jljj^ 

v 

ûjJJJ vlbb' ûijjb fjSjjliji jii A) L^j4j Ajjj& JjljljjS j»4j ijijl^J jlSjjbjS ^ûwbjAwJi jLS<u (jjj&tjtj djljjS 

.ûûjiJjiSjJlj tJijlu f>4j JdJ& tjljj^ 3 JjJjjjJiJ IJJ&ijJJjjjjjS ;£jb <U j4A jLSjjjbilj JjjbjS jJj JjI& jjQjS&j 


Static My Number As Integer 


.jjjjU JjjjQ jJtj lnjjJ My number tS 


*u yaj£d 
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( jJjJdii u 4J AjLtbiSjLA j»4j 4S JjLÛAjLS4J jLjjJjjb jjjjj (Ş4ifij5jb UjL4jljjj ^jUj 4J jLjjjJA 

** * ** ** * **v **v v 4 * 

.jj>jb 

. I J jLuL S jjLj 4J jjljL» (>Î(4J 4 j 4A jLjL jL4A 4SjljjS 414 JJ jj&j j 4J <j jj~ 4fljAA< — 4 jIj 4S 
ûjjjj 4 wLuj JJjjljjl j44 ^jj4j ^j 4j ûjjjj jp- 4J jljjl jjjûjjj ûujljjjj Array JjJjjjj^ b <4 Lj4j ^jjjul 4) 
iijjb4J 4S 4 j i:jj 4) Array ^jjjw. ûjjuiLj: jLSjjljjSjjj44 ( Ljjju ^Sjjj: jû4£ 4j > jUS4j4j « 414J4: 

. jj4jLj: ûJjjjej jL424«Lj4J 

: Array ( ) jû4j ûj^ ^ûjbASij ^LSjj 

l»4J 4 Jjj ûjjufjjjj bjj: d4jjjj 4) jjljjl ûLJ4«jS ûLIjjj: ûlljip 4 j 4jLwL ^SjjL ( 4jjjuj ) JjJuûjjj' ^JjL4^lj 

4jjjuw ^4j 4S4flj4iu4 4» u 4 j 44 jLSbjJ ^Lubj4 t£jL( 25 ) juJj <41 jj 4j 44 jLjljjS ( 25 ) 4 £ I:4 j4jjjjJ 

. juj4lj:lj 

~ ** v_ 

Dim Student Name (25) As String 

4 S jljjS ( 25 ) ^jjJjL^Slj 4 j u uu jjJJ 4A i*lmj4 ) Jjjjj£ ^ 4 jLj 4 j jIjjS ( 25 ) 4 ) jjjjLA 4 L u 4S 44 jaiu< 4 S Jljjufi 4 j 
i£jj4j j 4 j 4J jw4«4j Student Name (24) ^jljjl 4 j ûj: ^jLûjS Student Name (0) 41 ûLSjjûj ûuu: 

. ûLSjJûj ûwj: jjjjÛw 41 Jj4jjjj 
4JJjlfi fk4j jjjjSj 44 j a iuj ^LSjjljjS ^pjj jjljjj: bjjuuJ jL4A 41 Ljjj44 jj 

Student Name (15)=" ^411 juj-jJUuÊ juull" 

(Pj4jj4j 41 ÛJjSj:jJJ ( 16 ) JjLj JjJjjjj 41 "^411 juJ-jllJL4 JLull" <pjj 4Subljj Jj4j 4Ûj Lûûj ÛÛJJJ 

. ÛLSjJÛj Ûwj: jjj ( jûw ) 41 Jj4jjjj 
juujjjj: j:jS fk4j Ij4j ûLujj ûwj: jjj ( 8 ) 41 JjiUjjj jl «i7mjj j4Sû jj 

Option Base 8 


j ûi^ £ ( 4^j)Aia 4 ) JÛAl UJjJf 
ijjj: Jb4£ ^4dj4td< juljjj: l:jjul 4u » ^jjj: 4J4j 41 jj^jL 4 L j 4S (£4jLjuiu«j4j :jS jLwL I: jtfiuj 41 ^jj4j 
( . . . . jLj jLûLSj 'jû jL jj jLSjL ^jL j jLS4u:bjJ ^jL ) 41 jj. I: jjLw4«Lj4j 41 4 j 44 ^ûjSjjj 4S jj4ûl: 414 j 

. jj4S4j4j 
ûuj: 4 jjjÛu j»4j ^4Sj:jS 4S 

Dim Student Name (10,10) 



jj Variables j^jjljjS jjj? > jjJ ( diujfa JtjjuS J L û A ujLj 4j ) b jjLt» jûjSjjj (jSiiUjjAS 4J jlS4jjLûlj jlSlûlj 

.Constant jLSjjSa? Ujjj4a 


^LuAjLSAj yjLSA^jA* Ljlj jS<U û»j jJjSjLS jjljJ jlj 4) jLSjjljjS j jlSjjçSb- 


. jlSjjljjS jj 4J jjjSjLS &)ljJj jLuijlûAi jJjLjjJU jAj jL»JA ^LuAjLSJj ^jJjjj? j jLS»j&g 




jLj- JÛJj’ 4jljŞaj- fbAj JjAiljAi < AS JULjjAJ ^jjjS ^jLS jijjSli JS ^JÛLj-jj jAj Qlj jlSjjjSij- 

4S< juaAjJjjlS<U jLSjjb- jjaAA juiUJlSjJjlj jUjb L^jAj Aaaj AS ( jL4SjjjjJ ) Ij 4S4jLjjAj Ai jjAmjjjLjjjj 
jdS<bjJ jjûj^ j4j Ij ULjLSjAA 4J ujj< U L»j j4S LAjjjAA jj »j»uuj SIjju S4Sjjb4£ uLSjj 4SAjLjj4j 4J Ij JZAjAj 
. LujJjjSjJ lJ4S<ULij4J ûuS <U yjj^ ^SJjjjIm <U jjjj&JJ ^iJÛLjjSlj ^yjjj 4i L^I<Û lj4J jJjjSj 

luujj jjjjIw ,»<u<uLjj<u<u jjSb- ^jjjUjSij jj 

Const My Number =64 

.My Number jjb jUdSjjŞu? jjlj 4ijjû jj Ijj jii <uii <S 
Ij Text box <U 4ijj«j jj ûLjj JjjjIw j4j jûi^j ^jLS<u lj<S<uLij<u <U ûjj<UUj jaS 

Textl .Text = My Number 

luj Jjluj ûjJ ( 40 ) 4i ûijLi 4S jLSjjljjS ^ilSiUjJj jU<b jlSjjbSij' ^jLuijlj ^ilSAjjiUAS jûljj Jîi»j4jJjuiJjjj 
. . . ÛUjLSAj IJÛj ^LS4iUj4& Ji Lwjj ûjjLj Ujjj4A jj Ûu ( (JJ4jsj 4j ) ^LaoA ûu f»4S4J aj 
Module 4U Sûjdu? SljjLS ûj <Lwj: Ij jû»4j yjLSjjljjS ^ilSLwb jjj»a b jLûJjb4Slj ^jû j S 4U jLSjjbSij' jijljj 

jjjjljj- ijJjjjjj j<û SIjj ûjjjLSJU Ij ^ûu <U Global ^<Lwjj ûjjjj jûjJlJlJ SU 

Global Const My Number = 64 



4J jjJJjLîjj J4J uUjJJJl J &Q j£ jjj f j SJûiAJ 4u 14 i»LmJ 4J Jjjj«b t£4ubj4J 4J ^fi4J 

4j j5au4J jlSjjlJjS £Û)i? 4J. 4^4jljj4j ;JJjb4J i£Jj4jjjJ djjAJ jj j«Jj4J4S jLSjjlJjS i£Jj4jjjJ JjbjjJ 
lijb 4jbbj4j j4J jûljjjj 4£4«bj4J ^SyuJjw j444i dljb j44. jJJjlS4J lJ ^ulûjS J LJJj4w4J 45 4l4J4«b4Jj44 
L4 jjj 44 JJ jj45j jJ ^bjjUjS ijlS QwJJ ^jj4j ^j 4J jJ4Sj jLS4uSjj4w JjlJjS ;JjLS QwJJ L4 jjj44 jj . jJ45j Ûmo4 

. jjjjSjJ (gJj^ jjjjofi 4J (Jjjj44 jJ (yjtSJjJjfi 4j 
uUj 4 jL«J j454j |»5f4J juyjjJJJ C jCnCl cll ^fi4J4J Ij4j ^ n^OjLS4J Ujb4S4jjjaJ jîjljJ 4J 4SjjlJjS jboUjj4S 
jj45u ûfiûtfSub jjjljJJJ djjjjfi j4A 4J juujjjjj Module ^^fiJjJJ !j4J j ûû^U jlSAJ lJjb4SjjjjJ JJ«44 4J 4SjjUjS 
uoujjjb Command button j4j ^jjjöw ^4SjjIjj Ij4j blj jUSu Command Button yu4j jb4 J j4S4j. 

. LUJ jb4SjjbjS (Jjb 4jjjoj JJ j4^4J ÛÛJJJ 4 JJjÛw J4J joÛLSjjIJjS ^dûwjjjj 


Sub myname () 

juujjjjj jLSjjlJjS ^LSjjjS JJU44 I JjjÛJ 


End Sub 


. jujSu ûûû^Sub Ij Command button 4) jûb b 4jj>b ju ju45u ûûû^Sub jjIj jS j4j jbLiuj j 4S jLwb j»Sf4j 

Private Sub Command l Click () 

myname juujjjjj 4 SjjIjjS ^jb Lpjj 4 SjjIjjS ^jjS ûwû^jb jj 


End Sub 
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jjb jj <jS4jjj1w 4j jb jj .jljSjjUi ^Sjj LS ^il: ^Ui Jj jj I: dLuJJj JfjjjJ ^JjLijJj JJ ( jjljSAuLuJ ) 05^(5 rfjl5 
■jÛMJ 45 J i£:jjw jjljj:: <(S :jljjl: dluJ4j jjjjul i£4«bj4j jb 4J :jlju»jjj j 4 £jjjj ^4j4jbj4j 
: jjjj:: ^4:1:1: ujjJ ûj4j- j4uu4j jlj4mj5jLA I: 4Lu4j JejjAÎ iJJjUjAj 4J 

Mathmatics Functions jLSJbjLS^u 4 wlSjL 4 - 1 
String Functions jLSJbjLûlj j^ai j 4uuSjL& -2 
Data and Time Functions jljj4:j ûLS ^ûISjlûSjU -3 
Data type Inspection Functions jLS4j>Lblj ^LSjjj? 4J j:jS i^4j^ ^ilSJLÛSjU -4 

Finacial Functions jLS4j yjljl: 4uuSjL -5 
Program Output and User Input Functions jjjpj: j jJjSuj ^LS4ÛuSjU -6 

■jj (jj iSejj&’ 4j jj^^bjwuSjU -7 
LbjJJJl: jj)4«bj4J j4jV 4J 4S i£4jLwuSjU j4J ~ S 


jlSjj^LSjb jjCjS 

j»4 S> jS ) ^jLS 4 jjLS ju jjijjb ^jLiu4jL4J4j jl <i J mjj) o I: j:Lu ^jLwu^ ^Sj Database j44 ^i: jS ûujj: 4) 

i£:jS 1: 4lub4j >jju2 i^4«bj4j 4) ^^jijijub ^jj.ûûjj: ( jlju< ^jj< Lûu< Lw< LÛ4 <b < jljLf < ji4jl: t 

. jJ4Sj: jbub jluSbJÛ44 Iwjjjljj- 4J 4 S 4J44 jLû4ulû 
jljjb Iju 4J jLwubjÛJ l:4jjjuJ4J 4S 4J46 JjJLbj <^4 J4jjjuJ 4J jUulwJjju 4jjjljub j4j i£>l:jS ^JjS jmIj jj 

Label ^Sujljub U:jj44 jTextbox ^jljub jj: juûlj4j ûûjj: 
jûj:l: £ji Textbox2 Uujjj: ^jljub 41 jj jSjjjISju 4wÛSjU jj juj:l: £ji Textboxl I: |»4S4 j ^jljub 41 4S 
4S4ÛuSjU ^jbû 4 j I: Label 1 41 ( 4 jIjûj jbjljjSjj: ) 4 j 44 £ji jj: <ybl: 4 j jLaubjÛJ 4 S i£4iLwuSjU j4i jj 

. ûuçjjjj: 

: jçwjjjj: 4 Sj:jS Uûû label 1 j 4 u 4 l jj4Sj: 4U1S Jjj: Ij4j jLS::jS ^juwjjj jj U 

jui»jjjj: j:jS j»4i Jjbjjj: <£jj4i: jSjS jj - 1 

Label l.Caption = Val (Textl.Text) + (Text2.Text) 

( - ) jj jjjjSj: ( + ) i£4iLwui 4i4u jjbj jj: ^jSjj: 4U1 jj -2 
( * ) jj jjjjS j: ( + ) i£4iLuui L^i4u Jjb3 jj: ^LjS jljU j: -3 
( / ) jj jjjjSj: ( + ) ijJûLuui LgiJû jjbj jj: ^i: jS Jw4jI: jj -4 
ijUvjjjj: JJjS |»4 j Ij4j û!4j4wjS ( U ) ( U ) i£)4J ^ublj JJ — 5 

Label l.Caption = Sin (Textl.Text) 
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.qUijjjjJ JjjS j»4j IjAJ 4)4 j4u jS -tÖA— ijjijtj iJjdJ (jjjljjJ LbtJjdJ tj -6 

Label l.Caption = Sin (Textl.Text) 

. j\ujjjtt tiji jtj Ij4j d4J4wjS -U— (J4jLw ^jj (jûûlj jj Ujjj44 tj -1 

Label l.Caption = Tan (Textl.Text) 

. jyujjjti tiji f»4J Ij4j dJJdjUj ^bjjJ (£tj ^xûlj jj UjjjJU tj -8 

Label l.Caption = Sqr (Textl.Text) 

.jfrujjiti ujz f>tj ijjj djjjjUj (^iijj çjjjij jj -9 

Label l.Caption = Val (Textl.Text) A Val(Text2.Text) 

.juujjjti tij& j»4J IjAJ dJJJjUj (jtjj)\£ji (Çtjtjjjji jj - 1 0 

Label l.Caption = Log (Textl.Text) 

.juajjjti JJtjju f>JJ <£4SjjjS IjtJ jljtj ^jUj 4 j jJJiJ jLS<U (gjtiijjti ^JjjjUj StjJjji - 1 1 

Label l.Caption = Fix (Textl.Text) 

jjtjjin jJtjlu f>Jj c$4SjjjS Ijtj Integer jljtj ^jjUj jjjiSjjM jj jLSjj ^jjj 4jj4S ^jjjûjjS JJjjj jj -12 

Label l.Caption = Int (Textl.Text) 

jiujjjti jjjs jtj Ijtj û \jjj (jj-jj Ljt J jj - 1 3 

My Number = Abs (- 45.6 ) 

Text 1 .text =My Number 

.ûûii«lj udLw lûlj My Number = 45.6 y ûû^jjjjj JJtjju jJj aS<uUû 4j IjjjÎJ 
4S ^jIjjj jLSJUjjJU iiJjUj stjtj jj ujjjLS4j 4j4ÛjSjU jtj Random ^SjujjJU Dlj :Rnd (j4ÛiSjU - 14 

ûIjjj tJijlu f>Jj (yûtStiji. 4J,jj jJUj jtjjjtj jjjU( 15 ) 4J jLSjjUj 

My Number = Rnd (jjUj) 

.^^IJJ jU 4S4 Sj S ( j jj 4j LjIj ^IJj jUJ LS 4 wj S (Jj4S jIjAj 4S (£jj4j jj ujJjIS4j: Atn (£42uSjU — 1 5 

My Number = Atn ( jjUj ) 




U ^LLLLLuJAS Jj LbJdJ l^ Al ^lj^ 

Textbox (jjjjuAJ tj tiLu jb jjiU stjju 4j U-« ûûu^jjLSjj ( jjLwiSjU ) 4iljljjb 
jtj ji ÛJtdi jLSiduJjxi Jjljjli j4j j4U4J jbjJ ÛujljJJJ LLtûj jj jjj4J (jjij4Ubj4J (J4j 

♦ ♦♦ ♦ ♦♦ ♦ ♦♦ ♦♦ - y ♦ ♦♦y ♦ 

•ûfijS jjçS ^ j jjj4Sj4U» (^ljU 4 j ûiftj jSj ûj4Sj: ^ÛwjjJ S^Jtjjjj 

. jû <,Sjjljjb jb jj 
j4J j4S4j 4jLwûSjU 



: Array (j4wuSjL // 1 

|JUL_Û jljwnjjj 4S ( &$ A 4A ) JÛ4J UJJ^ (Jjjlw JJ jlS4jjLûlj ^yJj^ jj uJJjLSJj 4J 4wo£jLA j»4J 

jjLjj b4J4jjj«j j»4J d«jj44 ÛÛjIjjjjj ( jûw ) jjLj 4S ûjjjjjlj (lower bound) 

"First",''Second",''Third","Forth" 

My Number = Array ("First","Second","Third","Forth") 

Print My Number (0) 

Print My Number ( 1 ) 

Print My Number (2) 

Print My Number (3) 

ul?i Jjj J 4JJjiw >4 j I JyLsj 4J 4J 

First 

Second 

Third 

Forth 




Visual 4jjj Jjljj4J4^4jlj jbjjljjl (Jjj^ Ij4j4jLj4j j»4J lj4S jûljj Jj4j ûuJJJ iJJjûl 

. jjUjIj Variant &)}? 4J yjjj 

* Aj basic 


îIsNumeric (JAwoSjU 

ûjfJJjJJ True jjJJjLj j4l4J L jb 4JJjLj Llû ljJÛL4llj4S (JJJJjljlj J4j jûljj j4J jj ÛÛJjL£4j 4j4LwÛSjU j»4J 

JjbJ lJ4J4jjj«j f»4J 4 Jjjj 4A lJ4S4UUj 4J 4J û^JJjJJ False b j4^4jj 

Dim ric as string 
Ric = "1342" 

Hawlerawa = IsNumeric (ric) 

4jjjLj(j4S4^jjric 4 Sjj^ ûjjjjTrue j»bti4j|j jjjl 

UÛL4J4jjj«j f»4J j»if4J 

Dim ric as string 
Ric = "LM 7.1342" 

Hawlerawa = IsNumeric (ric) 

. 4J|J (jwuLj jSÛ4j Jj^jjjbj Lj)4j (J 4S4^jj l ic <ÛJj£ ûbjJ False j»by 4j lJ4J4jjjuj j»4i 



tUCase 

ddj(Capital Letter) jj (Small Letter) <jjb 4 J jLS^iuj jj ûujjISaj 4j4wiSjU 

djb: 


UCase ("erbil 2005") 

"ERBIL 2005" ûLjj 4j«jiw j»4j j»bû 4j 

:LCase <j4wiSjLA 

ajUi b4j4jj>«j j»4J ddj (Small Letter) jj jLS4jjj ^bjjS jj ûjjjL24j 4j4wiSjU |»4 j 

My Text = "It Works" 

My Text = LCase (My Text) 

"it works" ûLjj 4jjjiw j» 4 j j»Lû 4j 
:Len <j4wiSjU 

JjbJ Ij4j4jjjb j»4j <41 Jj djjljwijjj jb d4j4wjj ^LS4uJ <jJjbj ^jiûlj jj ÛJJjlSJj 4j4wiSjU j»4j 

My length = Lin ("WayWay") 

LUJ (6) ûhgJJjJJ j»bb 4 j 

:Chr<j4&SjU 

^jj4 4J 4J42uSjl4 j»4J. LUJljJJ <j4J44 4J i*lmj4 1 jjjjşb <£4tbj4J 4S 4 L uLwjjJ ^UMjjJ jJ lUJjL£4j 4J4fluSjt4 j»4J 
4J 4 j ( 250 ) Lj44 ( 0 ) 4J 4S JjljJlJ 4l4JJjUj lJj4JjM4jS 4J i414jUw4 j 44 jJ |J4<4 1 hh m j»4J 4S ASCI.I ^j4lluh 
j»4J iJU b eJ 4J 4J LUj4jUjJ 4 lU 4S JjbJ lJ4J4Jjj«J j»4J 4Jjj LUjSjJj4wJjb^ 4S4 ibjSjjnS 4jLwjjJJj j»4J ^blJ <jj4 

. Û ift JjJj 4ULjjj 

Hk 

I'm "Engineer" 

.ûi^JJjJJ jj jUU4J44 ^uSjJ lj4J jjLjjij j24JJjÛ2 j»4J jjûL4 j4S4J 

My Text = "Hi,"&vbCrLf &'Tm "Engineer"" 

4£ j^LujjJJJ 4jjjjw j»4J 4JjJ 4J44 ( 34- ) JjUj 4jlj4£ |J ASCII ^44lluv 4J 4JjJ 4j4i7i^S 4jlj4S <j4JbUJ IjjjlJ 

ûLb ÛLjjJ 4l4j4wiS UjLj 

My Text = "Hi,"& vbCrLf & 'T'm"&Chr(34)&"Engineer"&chr(34) 

ÛJj4SjJjJJ 4JJ jiw j»4J IJ j»U?û 4J 4J 

Hi, 

I'm "Engineer" 

: Str <j4ttUSjL4 

4J jjû jJ jljwjjj Jjcûj jj jjUj <yJjjS jj ÛJJjLS4j 

* ! !% * ** *_ 

Mynumber = Str(123) & Str(456) 


123456 ûjj4£jj)jj 4jjjiw j»4j IJubû 4 j 4J 



:Round ij4wuSjU 

4S 1 ?4J d^j jj4ij ^jb: :jjjb Jib ^LS^jb- jjjlp:: IJjLu 45 4j uJ4Sujj ^4 j4mu5jU 

.ûlilu :jjjlû ^lj: 4jU ( 3 ) Lj4& 45 8.74282 


Mynumber = Round (8.74282,3) 

8.742 ûû^jjjj: 4j*£lw /l4j I: j»bu 4j 4J 45 


tFix i£4wuSjU 

UL54JJjUj4J jIj4j (jîbA J L^)4J ^UjSjJJ jj ÛJJjUJJ 

Mynumber = Fix(4. 57428) 

.Cj$45::j:: ( 4 ):jUj L^:4 j IjuLm 4j 4J 


:InStr^4ûj5jU 

4J (b) yûwJ ^jjjw ÛJj4jLu j454j d:j jljwjjj djjjjjS jij 4j dJjljMjjj ^jjju ^Ujlj JJ ÛJJjL54J 4j4uo5jU 4J 

.Erbil iSjljujjj jji 


I=InStr (Erbil , "b") 


E r b i 1 
1 2 3 4 5 


( 3 ) JjUj 4J 4jLw54j (b) ^llJ ^jjjw Ijjbû 4J 41 


: InStrRev ^j^jŞjU 

uLSjJlu luj: 45:jIjujjj ^jLjjS 41 454ijjfl ^jjUj 41 j»2f4j uL5j: Instr (J4 ûU5jU ^jUj44 jU44 4 j42jSjU j4j 

InStr JdSdJ yujjljLu-j jjb: I:4j4jjjû j4l djj 

Print InStr Rev (" AbdulRahman "," d ") 

4ûu j4jjj (d) jjjlajj jL54dûj 45jjb ijjjlj: 41 j 45 (j£jj£ ûujj: ( 9 ) jjUj j»Lşj 4j I:jjÛ1 

AbdulRahman 

* ^4J 

Print InStr (" AbdulRahman "," d ") 

4lu (d) jjjjMjj jL 54 uj 45 jjU iJUjj4w 41 j45 ^Sjj^ wujj: ( 3 ) jjUj jbu 4 j IjjjjJ 

AbdulRahman 


: V a 1 i£4£uSjU 

JjUj jj djjljwjjj Jjuû j ^jjjjl jj ÛUJjLSJJ 45 .Str (J4uu5jU (J4jlj4 a ju 4 j4wu5jU j4j 

MyNumber = Val (Textl.Text) 


. jjUj jj ûjjjSj: jjljwjjj I: Text 1 41 45 (jjjljujjj j4j I:jjÛ1 



AS "C" ^uj AJ ûLSjJIu ûwJJ dSAauSjlA (JlÛJjJajJ ^Sbjj^ jj jjdSbjjjj' JJ jLSJjjLûlj jjj^ <yjjj§ jj ûbJjLJb 

."Convert" tjAwjj 


:CCur (JJLwÛSjLa 

.Currency jb jljj jj 4jIj 4S jb ^ilSjjUj ^bjjl jj ûjJjbJb JjAuoSjU |»aj 

Mynumber = CCur (32465) 


:CInt ^AiiLiSjU 

jjLjj bJjJÛjjoj j»4J djj jIj4j ijjjbj jj jlSjj^jj jjjj i$a jjûjjS djjj jj ûj:jb<U JjJLttûSjU |»Aj 

**_ ^ * ** ** **_ * ** * ** ** 

MyNumber = Clnt (5.9678) 

.ûj^JJjdJ ( 5 ) JjUj jfcbû 4 j IjjjJJ 

* CDbl ^4ûSjU 

4Jjjjj jj jLSAJjLûlj ( <?jJj£ jjJJ ) <jjJjSj JjjjAjjjJ jj ÛÛJjLSJj JjJLttûSjU j»4J 

MyNumber = CDbl (785) 

•ÛuçjJjjj ( 1570) :^Lai4J 
:CLng ^jLmÛSjU 

JjjjIm ,»4j Long jijj^ jj jbdjljjl jijj^ ^jjjjl jj ûûjjLSju JjJLwûSjU jJb 

MyNumber = CLng (25427.45) 

MyNumber = CLng (25427.55) 

ÛÛJJJ jJJjlw filM 4 J 4 J 

254227 

25428 


: CSng (JAttUSjlA 

.Jjjjb jj Single jj jLSjjljjl <yjjjS jj ûjjjLS4j 

* * v * **v * ** *__ 

My Number = CSng (75.3421 1 15) 

342111 ^LsiAi 

: CStr (JAaaSjlA 

.Jjjjb jj Variant ja jbjjljjl £)j? ^jjjjl jj ûujjLSjj 4jjLwÛSjU ^aj 

MyVal = CVar (1254) 


:CByte 

jj Byte ijjj? jj jiiijljjS i£jj? ^JjjjSjjû jijLSdj 

* * v * ~v * ** *_ 


My Byte = CByte ("22") 


:CDate jjjjv&jU 


Jjjj*jjjjljjdjj ûLS t£jjp jj jLSdJjLûlj tjjJjjZ jj ujijlSdJ AJiJiuSjlb ftJj 


SS=Now 
Print Int (SS) 

Print CDate (SS-Int(SS)) 


:CDec ^AmuSjU 

Variant 4j b ûejAu 41 ûlia 4S Decimal ( £jj* jj jLS<UjLûlj ^jjjjS jj ûjjjLSjj 4j JlZxSjU ?jj 

■ûjjja ^djjjli 28 ûjjIjjjj JS ûjjjJjjSjIj 

Dim D As Variant 
D=lE+28 
Dim I As Variant 
I=CDec (D) 

MsgBox 



:Dir ^JlûS^U 


l:4S:ji«b 41 jL Sijjjjj* j Jjli ^jl: jLiû jj ûjjjLSjj 4j4JûSjU ?4j 


My Dir = Dir ("C:\") vb Directory 
Do Until My Dir = "" 

Listl.add item My Dir 
My Dir = Dir 
Loop 


: Ijjû ^SJjjjjjjj 41 ij 


ijijlş&' ^Jjijxu f>4j b jb C:\ ^ajIjJ 41 jj^jLSj: Erbil ^Lb ^j^jj j4m41 oLjjj: I::jjJ 

If Dir ("C:\Erbil.Txt") <> "" Then 
MsgBox " " 4j4* 4S4hU 

Else 

MsgBoX " " 4 j^i 4 S 4 JJÛ 
End If 
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îKill L& 

.jjIjS (Jjb: jLJ£»j»jjj JS (jJj^Uli j<U 6»jJjjju jj ûj:jL£4j4jAuulSjU ?Jj 

** ** **v ** ********** 


Kill "C:\Erbil.txt" 



:File Copy tftL&tSjU 
. jl5<Ujlj ^iijS (jjjS ji LUijtSAJ JjJl&xSjU f>4J 

File Copy "C:\Erbil.txt", "D:\Baghdad.txt" 

.Baghdad sjb <u I !j£ ^j jS "D" ^Llj: jJluAJ Erbil umJja* b jj 

: Rnd (JAÛmSjLa 

ijrûi^ LuieiJj ij<u<lÎoSjL4 t>J2 ^SamjAa jj ûjj jb jjUj jjuljjjj IwjiJ ^4 mj4a Randomize Dlj 
Randomize 

MsgBox Int ((10*Rnd)+l) 

iSjij (jSdJijdA jj yJ jSJjJjjjaj jj 

v * ^ 

Lablel.BackColor = QB Color (Int (16*Rbd)+0) 



ju 4J jLu2jj4J Jj t uuJ if t£4J0j£$[& j!j|jj4J Uktuti uujljjlj 4bjLi4<bj4J 4 j^ LL çj ^UjS 

jLSJLSjSjU jji&jjl 4J dûS4J 4 j uûlj>«44 4j 4S 4J4A I: jjLu4ULjj4J ^jlSJjUj û££ 4J 4J4uuSjLft j4J 4S ûû?4j 

• ÛJjJjJwjJJ 

jj ^J4 j 4j (£4S4j^f jj « uujjjIjUj j ! j4S4j jjIJjS j4J uUjJJJ ftLjfcJ 4 j 4IJjlJjS 4 S jjLjj jj4J4SjjU 4J ^^j4j (£4uuSjLA 

: ûuJJJ 4J Jjlu !»4 j Ij (jjjjlj^ 4J 4S JjJuJjJjJ jîf jj jû^4J jb 



t IF i£4mulSjL& ^LSLSjj 

IF( uc u yjjij^ j I ) Then ( A&tejAA ) ( uLSjjj^ d&d&jto dj os^& ) 

: 4 jj^U iiljj 

E=10 

IfE > 5 Then Textl .Tex = (<jJjjûj4£j4M4j ^j 4 jU jiSjUjJj) 


fkjjjj ijL^Jj -2 

!% 

I F ( £j4j ) Then ( uLSjJjLS ^J4jLA 4S4^j4j 4S ^jJJjSjAJ ) Else ( uLSjJjLS (jJ 4J4J4 J 4S4^j4j 4S (jJJjS j4J ) 

4jjjuJ jJ 

D=7 

IF D < 6 Then Textl.Text = 10 Else Textl.Text = 50 



fk4jjw (JlJjj -3 


IF (sjA«) Then 

(£j4jL& dSdifjAA d£ d£ [£ «JjSj4j 

Else 

uLS«Jjl£ t£J4J4j4j A&4srjto iS iS £ ttjSjiJ 

End IF 



jj)jLJi jAS4J < 4J (£42jj jL4m4SA«LJj 4J t£jLj IF (j^j4j (£4wuSjl4 i£jIAj£ ^yS4J j4w4J 4£4J4JjjjJ 4 j4jLjj4j j»4J 

^j (^SjjlJj^ Ij4j ujj 4J44 j24£4ûjj j4S4jjj uLSjj ^^4j ^^4jjLj ^SjjIJj£ Ij4j uuj uwlj 4S4 j ^Lt^J 45 jj 

. ûLSjj ^4j^ 
: 4«Ljj4J yjLSjjLSjJA 

i«4j JjaSjj jMj Command button ^jljjlj U«jj4A jj Textbox jLwb jj jj4jj4Sjj jjji <^4j«jjjj Ljjj4w - 1 

♦ ♦♦♦♦ * ** ~ v V 

. JjJjljj’ (J4jjjlw 


■< fcmnl 








/0v 




jLwU jj4S«J ûwlj (jV ( j i u i S jLStjjjJ (JJj4«si 4J 4i j»jj& <jjjj£ Jbj JJ 4J44 j«jjj ^w 4J jl «7 mjjjjj )J4J4jjjuJ j«4J -2 

. jjjjjj«jj 44 Form«<Add 


. jyjjlj Command 1 jjljjb jj û4ulû ^jjS Luûj -3 

IfText 1. Text = "123” Then 

Form2.show 

Else 

Form3.show 
Beep 
End If 


(j«jj4 j4w4wj ff JJ jU4S4«bj4J lj4J jçwjÛJ ( 123 ) JjUj |J Text 1 (jjj j w 4J jjjUj4^4J Ij jAjS^JUç? ^jjLS 4J -3 

.Form3 /bJÎ^w <y»jji j4w 4 u.>jj Ij4j jujjjjj < 123 ) 4S«jbj jjûb j4^4i ^^4 j ^jjjj 



y a&y S 

tSJjUjS ûUS i<uLSj4j IjAj 1 23 &!£ ^jjAJ ji !>S<ûa* ^LSjJ Ljlj Beep ^jj c^jj^ -4 

j4JjM«j2 4J 4 jJlJaA ijljU ÛJ i iSijiSjjM 4) ( JUJ ) ^jŞjti jiAZti jijS^tj^ 


SELEGI 




JjJÛJASjJ yjjjj JjJjljj- (j4J4jljj4J j4J ijLSjj 4J 4S jLS4£ji ijjljJ ^JjSjjUj jJ utJjL£4J 4J4uoSjU j» 4J 

** v ♦♦♦ ♦♦y ♦♦♦♦♦♦♦♦♦♦♦♦♦ 



j»4J djj Jj ^Sj Textbox |jj6 4J lJ dJ Textbox 4) dluwjjj (pj4ilJ rftj jt ûJJjLS4j 4J4«Lij4J j»4j 

.LÛJJJ 4JJjlw j4J J*4SjJjS 4S.(^u) LJjMjjJJJ jJjjJijTextbox 4J lj4J ( 3 ) jLijjÛJ j4l Ujl»4J4ijjji 

Dim Number As Integer 
Number = Text 2.Text 
Select Case Number 
Case 0 

Text l.Text = "jiw" 

Case 1 

Text l.Text = "d4j" 

Case 2 

Text l.Text = "jjj" 

Case 3 

Text l.Text = 'V 
Case 4 

Text l.Text = "jlj^" 

Case 5 

Text l.Text = 

Case Else 

Text 1 .Text = "4j ^j jjULj 4jjjUj j4j" 

End Select 

ûÛJ’JJjjj 4jjjlw j»4j jjjjj textbox 4J jLijjj £ji jijS^tj^ ^ljj 









_Ş3 $ 

{FOR....NEXT 

iSij Ly 4« Ljj 4J 4& ) ij&uU JjUjJJ imJLfjljf JUJJ^ j j SJudbtjd£ uJjAiLtJ jjjL& jA& 4J UJJjlSdJ ÊJAêSuSj lA j*4J 

.ûjjjjii ÊlJJijlu JJte <U ûjjlpjj 42. ( ûLSjJUjLj jLSjjb’ 

j»4S4u (^Jjûw 

For ( (jJJjL«j ijjljjl ) = ( yjlÛJjAw ^jj ) To ( (jJlûj^ (^jj ) 

ijJjjiSj gijLr JÛ4£ ÛJj4jUjJ 42 JtijSj 4J 
Next ( jL24j yjjjUj jjljjl ) 

Command button jTextbox ûojjjULj U424«jj£ j4l» 4J jUjjl jjLj jjj j»4j ûûjjj 4jjj1w ^4j j4m 41 J«4jj>U 

: ju/jjj«J Jjijjjû ^Jj JiJSnijS tj 

For b =1 To 5 

Textl.Text = Textl.Text + "(AbdulRahman)" 

Next b 

4 i " (AbdulRahman) " 4 jIj42 jU (j42jj jL^ ^ulu jjdSa jJ4w Ij4j JjjSj Jpêj 4j4îfjS j u 4 jU4j j»4j jêSjj 

.jitSiijn jU4S Textbox 
$ jff ûuL ÛuujuJ 4J4jlj4J 

Textl .Text = Textl .Text + "(AbdulRahman)" ijuLû 42 ?t}}i jjJi 4Uj Luuj b=l b For 4J □jj4w 
Next b jLwU t j Textl .Text = 0 + "(AbdulRahman)" Ij4j 0= Textl .Text 4 jLûjj4w ^jj4j j4j 4J 
4J Lûlj b ^jLûj2 4J ûujjj Textl .Text = "(AbdulRahman)" + "(AbdulRahman)" jL»U b=2 Ulû 

ÛU£JJjJJ 4JJ£LW ftjj ub 5 

(AbdulRahman) (AbdulRahman) (AbdulRahman) (AbdulRahman) (AbdulRahman) 

i?*33* 

LjIj * ( Loop ) 424jJ4j (_u4j.U4j^ (^JJj2jjUj 4J JjJjJj 4j44 IJm424j JsşjJm j424J ^4 2 j24JjjLjJ Jjsjjjj f*4J 

ÛUJJJ 4jjjiw j»4J iJiSsjlu 42 ( Step )42jj12j44 (PJjSJjUJ 
F or ( (jjjjUj jjljjS ) = ( çiQtjAMi ^jj ) To ( «utûj2 ^ jj ) Step ( jLlj44 ^jj ) 

SjJjjiSj JtjlP JJjş; ûûj4jUjJ 42 JtijS j4j 
Next ( jL24j (jJJjUj jjljjl ) 

Command button jTextbox ûûjjjUU lJ424*jji j4«4J jUjjljjU jji ?jj ûujjj 4jj jû£ ?Jj j4w4i J«4jjjuj 

: jutjjjjJ 4jjj ûw j4j j242jjj2 jj 

For b =1 To 6 Step 2 

Textl.Text = Textl.Text + "(AbdulRahman)" 

Next b 

(JjJJ 4ÛJJ LxuJ b=l U For 4J LÛJj4w ûjj42UjUj Ij jijSu? JJu? (PL2 41 42 UÛU4J4jjjU j»4j ^jjjÛjLSÛw 4) 

Textl .Text 4jDjj4w ^jj4j j4j4J Textl .Text = Textl .Text + "(AbdulRahman)" 4jjj1w 4j 42 fwjjj 
lj4jStep=2 (Jjj4j j4j4J b=3 LmU Next b jL&U jj Textl .Text = 0 + "(AbdulRahman)" Ij4j 0= 


Textl .Text = "(AbdulRahman)" + "(AbdulRahman)" jUb jj: jj: jLSj^lSiAA <u jj 3=2+ 1 

(AbdulRahman) (AbdulRahman) lû^jjjj: f><u b6b= <U ûlj b <U 

(AbdulRahman) 


îDo. . . While 

jU f»5fJU , (jjjJjjjJdjbjj: jLUL£jjUj<Û For . . .Next <jjUj<Û jU<b UjUj4i JU jUJLuulSjU j»4j 

LU uj ûI^jjju <U<u-j<u iS ujjai aii?jJU ûjuj: l: Do . . . While uiSjb jU aSj^ juju jbjljLj’ ijûLuAjLSaj 

. uji iSijijjjj jjbjj: ju ^jlûj^ Lul <u ujjSa ^Aj^ ( ASjjjS ) aSjjbjS 

S ju»jjj ijjiSiJ ^j^ui 

lujj: jjj^Iw j»JU 

Do While ( 4wj>U <lS<u-jû> I:jjJu ) 
jjJûjj: jjbjj: <lS 4jljl:jS j<U 

Loop 

: JJJjlfi f<4j j4<jJU jjJjjjuJ 

Dim D As Integer 
D = 0 
T = "ali" 

Do While D < 50 

D = D + 2 
Z = T + Z 
Loop 

Textl.Text = Z 

lu£j:jj: jjjjÛS pij I: fkbû 4j 4J 






: jjLjji^JJJ J ipjifi 


LuJdJ 4JJjûw j»4J 

DÖ 

jjJlujj jjIjjjj 45 4iljlJ>£ j4j 
Loop Until (juujjijJ 4£4 ?j4« IjjjÛI) 

: 4jjj1w i»4J j4w4J Ji4 JJJ4J 

Dim D As Integer 
D = 0 
T = V*" 

Do 

D = D + 2 
Z = T + Z 
Loop Until D > 50 
Text l.Text = Z 


î 4yJ^j<>aiJ 

Or , And , Not jUuj&j>£ ljjjI£4j ^Jjjjj4j ^iLSjjljjb jLSdjbji ^jj4um4j dl| jj 
And jJjlJjS 45 dJjj? 4J« jJ ^Sj4j44 41 4J44 ( 4Jjljl ) jU 4 1 1 iTi i ) I4jJj£^^4j^^ 41 jLçSjJj44 4 jIjIjjLj j»4l 

4J4jjj«J ,»4J djj ûû j£ J J^ 4J,j^ Or jjlJj£ JluJ 41 

D = False Or True And True 
Textl. Text = D 

JJJ 4JJjlw i»4J j4l4J j»îf4J ÛJj4SjJjJJ True (J4mjj IJ Textbox jlj 41 jj4£jj jJ4 m IJJjll 

D = False Or True And False 
Textl. Text = D 

^jS ûAi luj Ij Or 41 dlj-jj j44 4S ûjj4Sjjjjj jUjj I jjj 41 i lu^jjjjj False ij4wjj Ij textbox 41 IjjjÛI 
And (JjIjjLIj Not jîjljjb j4S4l djjj^ 4 j 4j 44 And jîjljjb 41 (J4 juSjj Not jîjljjb L4 jj>44jj . luj^jj 

■wÛjSjj jjjS luj And (jû4j Ij4j LUJ 

D =Not True And False 
Textl. Text = D 


.false 4jj4j True ûwlj ^4i ^jj4jj4j41 lûjjjjjj False jj4£jjjj4u Ij jjjS^4j^ 41 



j ûl£ 

IjAj uxiijS ^<U 7 iL 7 i ^LwU 4 j jLj j A j j majS jAui Ajjjjp jle AS jLjjjjAA 4 S wuJ jLjJU 4 J jASdJ 

4 J JiOjMj uLS j» 4 J 4 J 4 A (jJjJLS 4 J 4 j (jSjjdUj ÛLS 4 S . OJJJjS jL« Dssk top ujj i'lmJJ ^jbilj JjJ <U» JU^Lj 4 j 
^ jub f< 4 J jjA 4 j jjJwj ûLS Ij 4 j I: Ji 4 Sjj 4 jj,a«jSi£jj 4 i!jjS yjLS 4 l ) ûLSjj jLS ^uijl 1 2 oJJjj? <^S 4 j ^jjb SjA 

.( ûlSeijLS ojASAj 

AJ jIjj4jj ûL£ (jûljjJJ 4S 4 j4A JojAj i£bljJ i4LmJ4j JjjjjS i£4jUj4j AJ AS JJJJJ4J JJ JjJj4w JAuU j4j Ijjjj) 
.juijjjjj 4j|jj£ f>4j jLub jj Timer jijljub ^jbb ^Ijj jjjjIj^ t£4iljlu j4j jj4ûlj IJjLbbjjjjj 

djjbj44 jj juijjjjjjjjS j4j Timer jjljub ^iblj ^Ijj - 1 

Labell.Caption = Date Time 

jjjjjlj 4jU4) aSajjAA Date Time ^bjw 41 jjjjIj^ (j4ibUj4i j»4iyib Ijjj U 

Date: 5/5/2005 

Date$ : 5-5-2005 

Now :5/5/2005 10:30:00 ^ 

Time : 10:30:00 j 
Time$ : 10:30:00 

juijjjjj 4iljjS j4i lj4i ûLS ^iblj jj 

Textl .Text = Time 

jl 0:30:00 ûû^jjjjj 4jjj1w j4j Ijj jil ^bû aj 

juiijjjjj 4iUjS j4i jljj4J {jiblJ jj 

Textl.Text = Date 

5/5/2005 LU£JJjJJ 4JJjiw j»4J |jJjûlfkL»j4j 

juvjjjjJ jjjS ,»44 Ij4i Lunii ^jUi jdj jb jj j!jj4j j ûLS <jiblJ jj 

Textl .Text = Now 

/<5/5/2005 10:30:00 lu£jjjjj 4jjjÛu j4j IjjjÛI ^bû 4i 

jutjjijj JjjS J4i Ij4i Lu f tJjJJ ( 4Sjç — 4 jj2jJ — jitjûb -jjj — ^SiU — jjUi ) ^jLwui JijAj jj -2 

Textl.Text = Second (Now) 

juijjijj jjjS /<4j lj4i ^ejS jjljj4j ^jjejJJ jj -3 

VBA.Calendar = vb CalGreg 


juujjjjj JjjS f»4J Ij4j jLSjjjj (Jjb ^jjj4SjJJ jj-4 
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Dim Day-Now As Integer 
Day - Now = Weekday (Date) 

If Day - Now =1 Then Label 1= 

If Day - Now =2 Then Label 2 
If Day - Now =3 Then Label 3 
If Day - Now =4 Then Label 4 
If Day - Now =5 Then Label 5 
If Day - Now =6 Then Label 6 
If Day - Now =7 Then Label 7 


"p&u IjUl" 


"AaaAu" 


Laptijdi teajlu jjjS 'tfJjtf ^lji 



□□HiinnDD ^j>«û -5 

Microsoft Calendar Control 100 aj ûLmUj Ctrl+T <uLÛLy ^jjS jbj jj 

»j Custem * Value: <u jj<Lub 4&jljj<u jû \jju . i£*jjj 4S<Ujjjj<U/<U jLwb «j jjjj jjauiu 

.tmUJHaijS jfcJj i£jA4j LAajjJA 

Calendar l.value = Date time .Calendar 

jfrujfjai Ajljl jrflu pjj bValue <U b- 

<U jjj fb£4u ^jjjSujbj jj sFirst Day 
dju j jjj ^jjjSujbj jusDay length - Month length 
4iblSuj 'çu j4J U)4 jL^)j ^jjjljuijb ju sGrid Call Effeet 

** **v ** **v * * 


sjljS ûLS ylujj -6 

ijuvjjjjj jjjS |»4j jLub j jjjûjjjJUJbTimer ^jijub LjjjAm 

If Textl.text = Date Time.Time then Ring 

.ûûjJlU bJÛLSjJU aSaSjaj j Lwb jû«Jb jljSujbJ ^LS b Textl <U 4S 
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i£yu»lJ 4J JJJjJlj -7 

!^JL — 

pAj ta Module LjdjAw 


Declare Function GetTick Count Lib "Kemel32"() As long 



UjUASAjUj4i ^Button 4J jLMU4j 

Dim Minutes As Long 

Dim Hours As Long 

Dim MyTime As Long 

MyTime = GetTickCout 

Hours = ((IngOCunt /1000)/60)/60 

Minutes =((IngOCunt /1000)/60)Mod 60 



. IJjL S <Ljj 4 jlj>u4J (J:j ijJiM IjS j g )Aa jjljjU ^Lw4jU4j > 4S44UjAj4J juUU 

: jl£4L<UjjJ 

// <Lt: 3 // Command button - 1 
// <0i: 1// Textbox -2 

//4it:3// Form-3 

: A«ljj<U ^ufijl: 


Command j}ljuUjj:j4A (Form 1) jl<u :jUj ^jjji ^:j4j : jS j jUu<u jajj^ ^4 jUj<u ^:j4i : jS ^lj: - 1 
:4 j:£l£ j»4: jjjjl:: 4jUJû4*J4ulj j 4: LbLu jû::t: Forml <y»jja jjjjj4«i4J Textbox j button 

** ** * ~v ~ ^ * ** ** v v 


jLS4jJÛ4«J 4 uLj 

jUjjljuU 

tH 

JUjLj 

jjU tfdSdStjljdnjj jjj 4& j:j4j:j£ j«:j 
( jçU&:: j j^4j yjtuJj 4 j Utj ) 

Text 

Text 1 

j:jS>4j> 

Caption 

Command 1 


Caption 

Form 1 


. jj4S:: Add Form j 4 w 4 J 4U1S jLwU :j I: Manu bar I:jUjU<l 4 J jj4S:: Project <^«4 j j4w 4J 4LtS -2 




Open Lxluj jjjjjjtJiu Form jLwb tj 



■uu»i Form2 ^jbdj <£ jjjûjjjjtfjb Form ûûçjjjjj ^SluSjj jUb 


■»j4ûj 4ie» jjbjjj ( 2 ) djbj i£jlijA£ Form 3 <jjjj5 ûwjjj jj -3 


.jj jSjJlwAJ djlS Jjdj <u jjjjjj^jjjb Form2 LxLu Project b jLSajjjj ^jJjû <u <U -4 



4j»jmH f>4j jjjjSii dS&tjjj} ^jû^jjluLj jj»£ti Form2 jAjAJ ULdS jLub 


jLS<U Jj<UJ <UjLj 

jl^jjljjb 

tH 

iJj<uJ<luLj 

jjAw ^mJj 

V 

Back color 

Form 2 


. jjjS jJbJU UbkS <u jjjûjjjjjjb Form 3 LxLu Project Ij jLSjjjjj ^jjjuû aj <U -5 
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4j4£iu j4j ijjjj+î JloLj jjASti Form3 j<Uu<U dUlS jUb 


jLS<U Jj<UJ 4 jjLu 

jLSjjljjb 

tH 

A^jLj 

JJJU c^JJj 

Back color 

Form 2 


jtS ( jjjjj4uub ) Password <u tf&ujj ^ibl: jbjAj ûLSjjlu ûwjj 4S<wbj<u ^&jjS ^4j Ijj jll -6 

jb «j jj^jjjjj jJduJjj&ti b jd& luiJjJj (jAjfijJji &J&ti IjJu IjLjjj ^jigglj 4 j JUdjbj jJÛ jb JjAujjjJj jjöLb 

. uu PHjtl ASjjUj cj 4414A i£jj4JjjJjl:l5b 


jLSdjjjJ ^jjJUb 4J <U <ujj, Form 1 Jb$4J <b ÛJJÛJI: jb4SjjjjJ <jSjj4l ^JjAjÛ 4J <U ûijjj 4j4»bj<u |»4J jj 
j»<û jjjjjjjjU<b Command button 1 ^jijjb <uûj. jj 4U» 4) jl>«b jjjj4a 4S jj4Su Form 1 j<b<U ûLUS 

- (jr^jjjjJ jj liJjjS 

IfText l.Text = "123" Then 

Form 2 Show 

Else 

Form 3 .Show 
End IF 


( jlJ jLuoj ) (jbb jjj j4j 4SjjJj4SjJJ Show ^4ûjj jJJJJJ JJ4J jMjAj lJ4SjjjS 4 j 

.jJu jLiû jForm j4j Qlj ûû4j4Sjj 



j4l jutijjjjj Password 4S Ij Form 1 ?jSjj ^jji ^jLSjj <U j4l jûujj jb4jjjjjj ^4 j ^jjS^jj^ <ptS 41 
ijMjjjjj Password 4jjjbj j»4j j4S j jjj4u ^jLSjj 4S Form 2 ^jjji ^jLSjj j4m 4Ju^jj Ij4j ^wjjj jb ( 123 ) 

(jjjlSjj 45 Form 3 Ij4j 

V V **^ 

4jijL^j<b j»4j 4ûwjjb Ij4j Form 1 ^Sjjûu yjjja jj Form 3 j Form 2 41 Ul4bj4b 41 jbjj4jJûlj4S jj -7 

: jÛJ 

jjuuj ^yjjM jj Jj4jlj4l (jbb 4S juujjjjJ j:jS |»4 j jLwbj jûjjl: Command button ^jl jub I: Form 2 41/1 
Unload Form 2 


jj4jlj4S i^bb 4S juujjjj: jjjS ,»4 j jUbj jûjjl: Command button ^jljub I: Form 3 41 jjlw jb44 <u /u 

JjuuU ^jjju jj 


Unload Form 3 




/>4J 1 ÛI 4 J JJ 4jjj b-. ldjli<Ujj4 jljjj JU JjJLuwljS jjb 4 ûL£j 4£ (Ûljjlj jtuUljj4j p>4J <yjjJ jlj4J £ljj -8 
jLûLS<Ujj4 ,pLSjjljj|j j AjUjjî jJj jjjbj jjj jLûLSJjjji AS jUjJ ^LSjjjjJ jj jLu^Jjl^AJ ( JjUJûj ) JLuujjJ 

** v v ** **v » ♦ ♦ » • ♦ ♦♦ ♦ V~ V 

. JUJJJ wUjS ul£ L^J<U iJLiiLbufijlJ 4J 4JA& jLuJjSjLS ^UAjJ jUAft 4S wm? 4J jL| jUûJJ^J 4u<JjJJ ftîtdJ. jjjUj 


UnloadMe j End jl^u cgiljL? 

UnloadMe 

End 

4«ljj4J4J jljJ&jtS 

^lLlH^ 4J LLLLWdJjdA 

^pLublJ 4J luLjJJQjU 

Jj4JÛ 4J d4J 4JjjjjU d.J 

j»4J 45 ûb-J :UJJJj4*j 4J j4J 4j4J 

Jjljujjj jj (£jjj£ 

jLuZiHpte 4J LLLLtfdJj4A 

<J4jjj4jU 4J JÛ4f 4JjjjjU djj 


<ÛUj Ijû jlujjjJ JUJu Jj>w 
. . jûUj IjLj jLîijjj Jûju jjju . . 

. . . . JjUj IjIj jLujjj Jj<u ijfw 

jûUuljLj jLu^J JjiU 







<U djyg j !»□ :jj? l:4JjJûw JUul&jLSjj <U jJLuAjUd: . t: dujJj v j6jjA (gjlSJjUJj ijJjjj j <U ûj:jLS4: 


Jjj& ^yJjjS ^yfljJutK j j:jS JjJ& ^JjJm ujj&d&j)j 4S:jjjj 


$ Toolbox jLS:jljj|j ^jJûw jj jj<&: :bj tljbl: ^jLSjjjjLuv jjç- ++ 
.Ctrl+T :jj«S <s$* jj :j^Lj «jjj+iAA Components ^jj Project ^iauUl/j 


^oje-ct Fatrnat Qehug gun 
A dd Fortn 
''^ Add MDI Fgrm 
Add Module 
iS A dd Cla&s Mödute 
jŞj* Add User Ccjritrol 
Add Prgparty Pşge 
^ Addua^Bocuntent 
Add WebClatfS 


Add Peta Repgrt 
Add PHTMk Page 
Add Deta Envirqriment 
AddFila^ Ctrl+P 


Remove Forml 
RefereQtes. -• 


CDmponent^, . . Ctrl+T 


Projectl Properttes.,. 


. jj&i Microsoft Common Dialog Control 6.0 JmJj jAwjU ûLdS UûjJU ûûjdS::j:: 4 j:j1£ j4j jUb :j 






yajfea kê & 


. jLSjjlj^U ûIjjj jLjj tSjblJ ^JjJLLu 4jj$ifi ^Aj. jj^SjJ OkjAw4i ^LdS jLwU j$ 




. jLSdljblJ ^SjJLiw ^LuAjLS^j jUJbJUUjJb ^Jb giULjt JLSJbUjJb UIj 
(Jbb-1) :Textbox -1 : jLSuluj^b jjIjjIj 

( jUIj- 5 ) Command Button -2 


: jrtwj^aLjjAJ 

. jJA^jJ iiljj 4Jj^ifi ^4 j jLS*jl>*Lj jL«4£A*jj£ 



jjjj^j jjjjI^ (^^Jl^lfi j»4j AjUjj<Uj UjIÛ j»4J ûIjjj Ij4j JJJjAw^ J JJ>1w ^Aj tjJjjdS ÛmJJ jj 


c>» 

iiJÛ A«J <UjLj 

jljjlj 

jhiufcjj ^ jj jj 

Text 

Text 1 

2-Vertical 

Scrollbars 

Text 1 

True 

MultiLine 

Text 1 

jjAjjjS 

Caption 

Command 1 

û^o3^ 

Caption 

Command 2 

ûj£ 

Caption 

Command 3 

V 

Caption 

Command 4 

ÛJi£>« 

Caption 

Command 5 

Not pad 

Caption 

Form 1 





. Aj jJ 4Sj uuuii j jJ i&lAA çJ jUJ LSjjjjb j uuudi jjjjLA jjAj LutuJ 

î»4j Jj4£jj j4wJJ ^SulS Jjjj ( jj4jjj£ ) jdjUjS Command 1 jjûUj£ jj^Sjj Jj wujj ûwlj jV 4J Ij Ljjj4w4J 

. ^jwjjjjj J4SjjjS 4jjju12 


Common Dialog 1. Filter =”Text Files| *.txt| DocumentFile | *.doc” 

Common Dialog 1 .Show open 
If Common Dialog 1 . File name =” ” Then Exit Sub 
Open Common Dialogl . File Name For Input As # 1 
Text l=Input $ (LOF (1),1) 

Close #1 

JjJ j tJ Jj4a1£ j4j ^jLS 4S juuJjJ |»4£4 j ^jJJ 41 Fillter Ij4j jj4Sj jjjj4w ^4j (£jj4u 4wJ )U j4S4J IjjjjJ 
j<U jrui^jjLS<u jjûljjjj Ij Save ^mJj 41 Ujjj44 jj jûuj jjulpjj Ij open 41 4S ^4j5ûU j4j ^jjjS 
^ÛLSJJjU L^j4j IjIj .doc Ujjj4A jj .txt ^jSwb 4S (jûuJ 4i^bl£ J4j |J Open 41 (jÛliJJJ UÛU4J4«Ljj4J 

. jfûuj Microsoft word Lajjjjujj Notpade 


. j^wjjjjj 4Sjjj2 LaIÛ iûULS Jjjj i£$& 4j jgwjjjj ( jJjS jj4j- ) i£JÛUjS jj jjS jjjjU jj4j ^jLS L uû û 

Common Dialog 1. Filter =”Text Files | *.txt| Document File| *.doc” 

Common Dialog 1 .Show save 
If Common Dialog 1 . File name =” ” Then Exit Sub 
Open Common Dialogl . File Name For Input As # 1 
Text l=Input $ (LOF (1),1) 

Close #1 


. jjwjjij J jjjS ft4j jJ4SjJ wjjj ^JÛUjS j4w4l ûldS Jjjj Ij4j « wjjj tfljS ^lwjjj 

Common Dialog l.Flags=l 

Common Dialog l.Show font 

If Common Dialog 1 . font name =” ” Then Exit Sub 

Text l.Font Name = Common Dialogl.Font Name 

Text l.Font Name = Common Dialogl.Font size 

Common Dialog 4Sj4jjj* »jS jlj ^ilSJûija ^ijjSjb jj 

l.Flags=l 

Common Dialog 1 .Show j jS jUjb 4 Sjj4jjm4jS 41 4S (J4ilwija j4i tyûj4Sjjj jj 

font 

If Common Dialog 1 . font name =” ” Then Exit jLS4i44 <pU4i jj 

Sub 

Text 1 .Font Name = Common Dialogl .Font jljjjû>Û44 ^jûja 

Name 

Text 1 .Font Name = Common Dialog 1 .Font jljj jûjul44 ^jûja ^jjb42 


size 



Command 4 41 juajjjj Jjtj jtjS tjjjlA tjdj ^jLS LLuj 

~ * v ** 


Common Dialog l.show Color 

If Common Dialog . font name =” ” Then Exit Sub 

Text l.Fore Color = Common Dialogl.Color 

■ijrUMjpti Command 5 jj jj$j tfLLull I jj&u 4S jjûjJjjJ jjjçjti ijijS b ^u QjS 41 

End 










. .open J Save JJ jutjjiti tijS ?>4j \j4j 41 jju j4j4jjM jj-jlwlj jj4Sj iSjÛi jLS<Uulj ^jûju £tj4j jj 

Common Dialogl.InitDir = "C:\Windows" 



AjLjLjdi j4j ^njSjjiJi jj feujjj a 4 j\ijS j4j Ij4j Print ub ^JjLjS ^ÛLb ^jLSUJ 
jiujjjti tijS ftjj \j 4 J ji 4 Jtj 4 j'îi j 4 Jb 41 jijS ub JtjLtj jjiijSjjLji JJ 


Number of Copies = Common Dialogl .Copies 

tj4 jV 41 

Start From Page = Common Dialogl .From Page 

«j4uVLj<l 

Stop From Page = Common Dialogl .to Page 



4mL mj4m 4J4J4:b JJjjQJfdJ < uuJAJ t J lçJ (J:j4Jlj4S «lbjl2 AJ j A iitji^AJ ;J:j4j:jSjt:jtjitJ JJ lj:jIS4j 

. öjiSjai jS (j:j LS j4J jj4jLSjj yjblilj 



. jLuA::jLS4j ::jS f>Jj :j4j:jSjl:LSb ^jjJûw ^jjjS ûujji jj LjjjJm 

Msg Box "jj^jjjSySG" 





OK 


3 


lu£::j:: 4J4£u2 |»4j 4S 


jjjjjS f»4J £$£ 4j ( Jj4jjjSjblSlJ ^:: ) jjjMjuJ juujjj ^SllSj: t: 4S42jJÛw jlj4J :j 4S JlSjJJlu ^Luujjlj tfijJjjj 


LUJii 

Msg Box" :j4j:jSjl:LSLj ^iuijji ^2::" „"4S43 jJlLw ^LÎujjb" 

uûj::j:: 4j:jlj f»4j 4S::jS ^yuw jjj ^tj: 



: jj:Ju:j:jlji’ ^4jljUj j»4j (jjbjj ûl::: jUj LS4 jLujj1j (pjljS 4 j jlS4uSjj lSjJI: ^jjj4Sjb:4j jj 


Shapes: 

16 - Stop 
32 - Qustion 
48-! 

64 - Help 





Buttons: 

1- Ok // Cancel 

2- Retry//Abort //Ignore 

3- Cancel //Yes //No 

4- Yes //No 

5- Cacel //Retry 

j4J 4 j j 1 '*4* ? '"J32J ^JjJLUJj jûjb No jYes LUjJiUj jaSjj 

. ÛrfJJJ 

♦♦♦ 

Slct MsgBox ( jjJLuo Ij^yjJ Ai JJJLtw ^LttUJjU ) 

If Slct =vb yes Then 

<P:jljU4A ^lj: ûjjij Ijûj £>LS ûjjdjti tS j jjjS j<û yes 

Else If Slct = vb No Then 

^:jljjJ4A ^jlj: uJiSj IJlu jJjLS ujj&Jdi JS ^ju ujJiA 6ijS j4j No 

End If 


LLgJJjJJ Jjjjitt |»4J 



■ LÖ“jji:: j jjS f»4j Ij 4 j «j4jjySjbLSlj ^jJLLw 4J jujb Cancel j Ok ^<uSj: jj: j44 ûuj4jUj j 4 S 4 j 
Slct=MsgBox ("öjjLU (ijljufjj " 4 1 4 " jjjLU yiULtijU") 

IfSlct =vb OK Then 

^jjjljjjju (jlj: LJ4SJ IJûj (.SjLS ljj4jjj 4S juujjd: «:jS j4j Ok 
Else If Slct = vb Cancel Then 
^jjjljujju ijlj: lj4Sj Ijlu (JjLS ljj4jj: 4S juijjd: «:jS j4j Cancel 

End If 

_ __ ûl^iijti JJtjjJu t>AJ 



«j4jjjSjl:LSU ^JjJLLw j4l 4J i4)4J4jLttjj ^j JjS :Uj jj 
. ju«jj«: ::jS j4j 4j:j4j:jSjl:LSU ^JjjLU j: ( x ) (j4iLwai yi:jS:Uj jj 
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Slct-Msg Box (" jjJiiw (jjljujj ", 0+16+1 ," ÊjjJui (jjLwoijlj") 

If Slct =vb OK Then 

Else If Slct = vb Cancel Then 

End If 




LUgtijdi 


tişS j»AJ IjAJ ( ) ) jUjjwj^w (JAjLwoj (JJjS jUj JJ 

Slct = Msg Box ("tfjjJut ijjljttjj (j&tt ", 0+48+1 ," jjJLU (jiLwoijlj") 

If Slct =vb OK Then 
Else If Slct = vb Cancel Then 
End If 



LUgtijti <U 'tjlu j»4j 


jUKjjjjJ JJjS jLuyjJ (JAjLwuj ^jjj&bj jj 

Slct=Msg Box (" jjJLLw (jjljujj ^jj ", 0+32+1 ," jjjûw ^jLwujjb") 

If Slct =vb OK Then 
Else If Slct = vb Cancel Then 
End If 





tjruu^rfj 4S4uuSj j JjJjb lu$4jL*jj 45 ^4ll^$j jAj 45 ^uljj jj4j 47r«jjn 



.ûlj( tfjJuuu ^jLuuJjlJ ) j ( 3j^-u/ ^JJ ) ^LuyjjJ ^JJjû ûl JJJ 



80 
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. ij d S d j dj (j42jj j jJ^jLS ^jIjjU ( j ilwAjLSAJ j 4S4jUj4j4J ^uUU 

ijLS4luJ£tJ 


// 4J|J 1 // 
// 4J|J 1// 
// 4jlJ 1 // 
//4ilJ 1 // 


Command button - 1 
Textbox -2 
Timer-3 
Label -4 


: JUbj4J ^ufijlJ 


jj4S«:jjj 4JJjlw fk4j jU4S<ULij4j ^LSjjljuU 



j 4 jjj1m f»4J jJjjljJ jLS4JJÛ4«J 4 jjIj 


jLS4Jjj4«J 4 jjLj 

jUjjljjU 

tH 

4.uLj 

£$Li JdSdStjfjMfj jjj44 ^Jj4ijjS jijj 
( jçU&JJ <JLj4j 4j ) 

Text 

Text 1 

4S<uUj4j jU 4ijje jj 45 j 4LJS 

Caption 

Command 1 

True 

Enabled 

Timerl 

2500 

Interval 

Timerl 

4ujjÛJ oJU&> i£4«jj 

Caption 

Labell 


. ju«jjjjj 4ibjS j»4i. jj4Sjj (Commandl) ijdiUjS j4«4J «4U1S Jjjj jLwb 
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Private Sub Commandl_Click() 

If Textl.Text = "abdulrahman" Then 
Timerl.Enabled = False 
MsgBox (" jjjjj*- 4 j") 

End 

Else 

MsgBox ("4J<U4A 

End If 
End Sub 


j j&i (timerl) 4Ld£ IjjjIjj 4) 

Private Sub Timerl_Timer() 

MsgBox "jJJjlj4J(J4S4JlS" 

End Sub 


jjj: F5 <£4«Sj: <u 4 j jLwb 



^jLS 41 lujIjjjj jj b- jjljb jU Abdulrahman 4S ju/jjJj ûûj:: jljS jjU: <pii jmlj a£<u t^u^j 4wjj 

. LUjj^: 4 j ^Ji^j 4wjj |»4 j Commannd 1 jj :j£ <^uwjjj 
JjJjl: lj4:Timer jjIjjLj 4 3 1: Interval ^jj44J4jjQ jj4Sj: jjb: jUj£ 4S 4S4j12 <Pjjj jIj4j 4i j4j j 4S 
. I: :jS 4J j44 jj4jj J24Uwjjj fk4j <jjLS ûmj: jûijjj: Jjbjj: 4S ûj^jjjj: iuujj^4: j^wSjj 





AwSjj J>bi: j»Aj Ij^j * jjd&i Command button jAmJJ d ld S jLwLjj ju</jjjj jJaa aj 4S4wjj jjjLa j4^4j j»tf<u 

.ûi^jjj:: 



4S4JLS M;UJ4&:Ij luj J5.Lu^::j::<uijj dljJbl: ,»<0 Ij4j (jutjjjj 4 j ^u^j 42jj IjjljJAj jIjS ^jU: ^jIS^J j4^ ^^Taj 



.jjjj jIjJj 


<Uljj4J ^jbû jl ^jjjjl <U lujSj IJÛj (JjLSjIjjI jûljj:: <U<Uljj4J ,»<U 4S jd: jûljj:: ^jDjS 4) 






I EVKOTS j&i'iii) 

jb«j djCommand j<b<U jjjSPress jujjj dtfj jLStfjljjjjdSjjS jUwbbj j£w ^jlStfLwJU aJ dtfjjAA 

jbtfj ûltftfjjjj 4 S<uljj<u djjltfjjj ItfJûLS jtfJ <^<uSjtf j<w<u j^jLtf 


: jLStfjl^tflJ jAuAJ 

v v ~ ♦ 

i£ 4 tfJj 4 J dtfjj 4 A . um/AJU jjljuU jAwljAtf jJjJjJtf JU<b uwAjAa ^jltfjjj jlStftfjS ijtfjAîû 4 tf |£tfj 4 JJjS i£ljtf 

tfjbtf tfjtfjlj^ 



: Load cSjlajjj 

r 

^lutfjtfiw 4 J ûjjStftf ^jj jtf- LUjujjjtftf b tfjltfjjj ?4J 4S ^tftfjS j4j (Form) (pjdjj <u <u <û<Utflû I 4 XÛ tfjltfjjj j»<U 
JÛ 4 ç 4 S 4 tftfjs j»<û ^jtfjS jtf-tfU jtf- <U Atf^ yjjjUjS dJjjtf- <U jtfluAjLStfU dJjjtf-JU 4 <Û<UÛj 4 tf ^tfjS jj jLS 

— JuA tfj jLStfjûUtf- tfj jLStfjljjS j tf J U 4 SLjjjJ <U<Ulj<U 4 j 44 ^Swtfjjw 

tClickçgjltfjjj 

4S ddûLS ûitftftf JkStftfjS Itftfjltfjjj ?4J UÛLStfjltfjjj jjj 4J 4tf<b jjtfLuAjlStfU jJjûjjj 4S tfjltfjjj jjjL&JjS 

ûjAjL£4j UjLSsUIjjsU Al JîJjlfjJD . ÛJ 4 £jj ûwlj ^SalS L^jAj j4w4j 4£AmjU 

44 4 44 v 44 v 44 4 


:Dblclick (Sjltfjjj 

r 

tfjljMjjj ijjj ijtftfjS jtfû Lrtiu jj 4 iu djjljub jtfbJJ dLdSjjtf dCûLS ûûjtfUUtf jdStfû ûûtfjLStfU tfjltfjjj ^ 4 j 

.ûjjSu 



•.Keydown 

:jj^S j 4 w 4 J Key 4 j jL) 4 %j 4 j <u ûjjSj^^j^ ûj« 4 jUj jjjUj 4 S 4 j ûj:jli 4 j :jI:jjj f» 4 j 


:Key press ijjbjjj 

<U :jjmS j4m41 Key j44 4j jL:4:û 4 j 4j ûujSj ^4j^ ûû:j£ ûjj4jU| JJÛU J4l4j ûu:jU4j :jI:jjj ^4j 

■ jlû4jUj44 l4:jj44 :j F 12 IÛ44 F 1 ^LS4uS 


tMouse Down şjIjjjj 

u4£ ^V4 j jb :j ûulj i$V 4 j U ÛUj5j 4S4wjU j4j 4) ûLdS ûLjLS , :jlj«/jjj 4S:jljj|j jj 4S ûl::: ^4 j^ ::jS f»4j 

:Mouse Over çgjbjjj 

.jjIjmjjj jj j4S::jS 4S Ûuûdjjj-:: 4S:j!jj|j j4j4j 4S4ujU ûUjLS ,:jljwjjj 4S:jljj|j jj 4S ûû:: ^4 j^ ::jS ^4 j 

:Mouse Upijjbjjj 

:jljj|jj4jj4w4) jnjU ^jjjS 4 U iS (jlj: * ûLS:: \gpAj\gir ûûjbjS 4S:j!jjl: :jij«U 4S ûLuU ûuj:: \gpAj\g? ::jS j»4j 
djjlj«ljj4w4J ûLûU LjIj 4j:j!:jjj fk4j jjj&jjS jJjSi44 ûu:: 4S jjjSJ44 4 L US j4w4J ûu:: jLwU j 

.ûjjjS4ÎJ4A :jlj«|j j4j j4w4J ûu:: IÛ44 ÛCIÛjjj 4S:jI:jjj Ij4j ÛJjij 

:Unload jjl:jjj 

r 

. Unload Me j:jS ^i: jS^ 4j^ ^ÛLS 4J ûujS:: ^4j^ ::jS ^4Û 
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Menu 



jjç 4«4 J :j <U jUjU.Jj^ Menu barjU jlLu j4w4J jUuAS j^ûj^yujSjJw 4jjjjr 4S 4 j4jIj4J 


jUjj’ jljjj 4j Jlijjj 45 luJJj£ jj4J jUju j»4SU jJjU j»U4j . jlû:: tjj£ JjlS 4S JÛjljjU j44 UuLû 4S :jIj£ ÛwjjJ 
U LulU ^:4jU jU4S4jj4^ I:jjJJ jj4j . jyj jUjU j jjljj: j :jiw jUj^j44 :j Meue d:jU- 4j juj jûljl: 

. ju Menu ^i: ijS ûwjj: ^ji'a :j4S4U4j 
sjjjjIj^ iJ4j:jlfi j4j jJ4Sj ûmjj: jLS47nn t jjlfi jjjuLwU 4j jûljjj: I: ULj4j j:j>û (J4:Uj4j4i 
. 4 j44 I: 4jUj4j t :j:j4j (jL4j 4 i 4 S jj 4 S:: Menu ^jjSjû j4j4J ULdS IÛ:j4m - 1 

ifiîe Edit View Project Fonre 

^ - b {^V y 


ujj4Sj:jj: 4j:j4ju 4j j4j j:jS 4LdS jjlj:— 2 



jbvjjjj: jlû47nn t (^LfiujjU IJuLû :Option 
juijjjj: 4S4luoJ ijjUîName 

I:4w4j j4J Ij4j jûjl: Open jUlwuj j4S 4jjjU jj ûjjjjwl44 4lwbJ j4j ipjljSûjjS ûkûlju:: l::jÛJ: Shortcut 
(jjLS 4J ûLS::jl5 :jljjU j4j :jjuS j4«4J (O) ^ûu J4^4J JjjujS (j>L«jûl: 4j tûlj (Ctrl+O) juujjj:: 

f>:jj: (jlwbJ j: :j4ûlwljl jj:Next 





. I 4j 41 jL tjijjçjJJt Window list 
. jLS47iiid lmlû4j 4J ûwlj ^ajLmmLû tjijj£jJJ jj : Checkcd 
4l( jjj^jJJ 4 ijjd&' 4 tjAJljS ) fjjlS&udJ uJjdjLtJ jd£ jj jJjSj uujjJ £Î I JuUJmwU 41 uUj4jLmJ jiSdJ —3 

^iU4tf4J L fc Lu | | j4w4l d L lS LjjjJui lj4J jjJSjjUj Jjlj (jTnnt 

lijjljjLj j4j b Caption &ÛAJ 41 Ljjj4w Ij4j i^IVT »m t ^£4 j jjJ jljJj 41 ûjj4A ^jSjjJ jlj 41 jUûuJg j4^4j~4 

ûjjjj jLjljjj 41 ûljdju 4jdjlw j4j Ij Name ^m4j 41 IjjjJJU t^JJjU jLwU JJ ( - ) jjjjlj 




JJjS j4j Ij4j . wûj4iJjJJ File <jlwul Ij4i jJ4Sj jU4Sj Form j4w4l ûwlj ^wjU (^SolS djûLS (Jjj4j jj -5 

jj jjjjjS jUwbjLwjj 41 4S MouseDown ^jIjjjj 41 junjjjjj 



ûjjJJ 4JJjlw fiJJ ju4£jjj£ 

If Button=2 Then 
Popup Menu File 
Else 
End If 



.^UnjjJJJ JJjS jk4J Ij4j jj4lj|j luhIj 41 jlS4 1 nu î (J4miljU (Jj J4JJJ 

Forml.Right to left =True 
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(4^ 

jjljjb j4j 4uJ j4j Shift+ (JJA 4J !j4j lujIj ûÇûjJ Jjj4j dûLu U jb4ûuul 41 ^Jj4J Jj 

Uhj ulU 1 JjJj &J AU& A& i£&juJ j2uJ ^ uJ^Ul^ & ? LdjAw ull 

IJJ . ÛJjSj^4j^J> 


& Open 



Caption ^fi4j 41 Ij 4 j ( ^ , 4 j ( ^>' jLS«jl^«b «j«Jjj*uS ^jLSjj 4 j Ijj^ ^SJjjjjû 4 j i£«j 4 j jj 

4j jjljalj j»4j «j4jja <u Shortkey j£uj ujj<UUjj 45 iJ4ûj j4j Juj 41 jû«j|j " &" ^4jLlû 4 £jjIjjLj 
jJ 4 w Jjljlj jU E |£4wJJ JMJJ 41 4S &Exit ;J 4 lJJ jmjJ 41 jjL 4 jjj*j jj djj jJ4^JJ ^4J^ yjljûj- 
JjljjU j4j jûljjjj (Alt+E) ^jA 4J uJJlJ (E) ^UJ Jjj 4J dULu jJjS^4J^ ^JLS 41 jJ4^JJ 
.(Alt+j) i£$* 4j 4S ( jii»rjJj) 4 Jjj ujj ^jjjS Lj uL ^jjj 4& jbjj ûûj English 4S4uj g U- jj4Su^4j^ 


jj ^SujU jj jj4SujLS41 juj 4S4*Uj4j (Save) jjjSjj4^ ^jljllb 



Ij j^4j4j « ûjjjjlj ^jjjbJSlj yu4J 41 ÛLSjjf«44 Optioil Explicit ^4ujj 4luJjjj 



. jujDebug ^ujjj ju4S U4jjjjjj i 41 4S ûLSjj 



: jLS:jjjL£jLS4: jjljjlJ 

// <ûi : 1 // Command button - 1 
// 4jh 1 // Textbox -2 

// <ûi: 1 // Drive listbox -3 

// <ûi: 1 // File listbox -4 

// <ûi: 1 // Picturebox -5 

// <ûi: 1 // Dirlistbox -6 


JjaS:: jjj djl^j 1 (jAJtfla j >dj 



(>4j jUiljaj jj4S:: Filel j4uAJ dUlS Jj:: LjjjAm jLS::jS jj 

Private Sub Filel Clicki ) 

Textl.Text = Filel.FileName 
End sub 

ju*j^:: ::jS ^ 4 i jLwb jj 4 S:: ( Dirl i£:jb 4 j 4 S )Dirlistbox (jjljjLjjAjJÛtiUSj::: jLwb 

Private Sub Dirl_Change( ) 

Filel.Path = Dirl.Path 
Filel.Pattem"*.*" = 

End Sub 


juKj^i:: ::jS ^JÛ jj 4 S:: Drivel j 4 u 4 J dLIS J::: LuLû 
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\<ê 


Private Sub Drivel_Change( ) 


Dirl .Path = Drivel .Drive 
End Sub 


ju j»Aj LxLu jitSu Commandl JldSjj j b ^jljjS <Q 

Private Sub Commandl_Click( ) 

Picturel.Picture = LoadPicture(Dirl.Path & "\" & Filel.FileName( 

End Sub 

jAw jAiljLSjJJ Ajjj yjl: jLLû jj Lûu jjJj:: F5 4j <uû<v 





90 




jLSj^jUjLSAj jjljjû jjd.wiiii.J $\j jj ijdJLLitfS jLwL; j jLSdJjLûlj ijtjdjijSjjj j^JjjLûlj ^ jjS ûujji 


//4314 10 // 
//4314 3// 
//4314 5 // 
//4314 2// 
//4314 1 // 
//4314 1 // 


label -1 
text box -2 
Listbox -3 
Command -4 
Check box -5 
Combo box -6 


jJdSdJ jj) JJijxS f>Jj j^jjljjb 



4jl:jS i»4j jLwb jjdSa ( Commandl ) ( 4S4luoJ jj CjjSjJbj ) ^JjUjS j4w4l ILIS ijjjj IjAj jjS jj 

Private Sub Commandl_Click() 

Dim name As String 
Dim age As Integer 
Dim city As String 
name = Textl.Text 
age = Val(Text2.Text) 
city = Text3.Text 
Listl.Addltem name 
List2.AddItem age 
List3.AddItem city 
End Sub 
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4j sjlû |»4j j (Command2) ^jjUjS jj jj£ jLwU 

Private Sub Command2_Click() 

Textl.Text = "" 

Text2.Text = "" 

Text3.Text = "" 

End Sub 

4J t$MM fk4J Jj4jj4^jjjj jLS4jjLûlj jj4& J^4J^ 4S4jUj4j Ij yjljjS 4 3 LxuJ 
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jLSdjbjjj ^Lu&jLSjj 4J jjjjljjjLw jjbj jj : JUljj4J ULj 
. jU4£4jUj4J ^4Juj 4i 4L Jl^j4A ^Ljjj ^JjSjjUj^j uJJjlS4J: 4S4 jUj4j (^jj4j JjS jjjj 

: jLS4cMJj)jj jjljjU 

(4jIj 1 ) Label -1 


( 4iu 1 ) Picture box -2 


^JjljJjA ^jlJliU Ûijjj d^j444J jUtfj^jjJ 4j|jjS fb4j Laûj (picture 1 ) tSjl jjU j4m 4J jj jS 4LJS Jjjj jLwU 

. juj MouseMove (ijUjjj 


W Prûjectl - Fifrml (Code) 

BBE 

' 

Wur^l T MOUSeMftve 

1 2, 1 

— -i 


Prlvate 5ulo Plctyrel_CloyaeHove (Buttcn As Iuteget ^ 
Linî s Aa 3tring 
Lijn a _l£ 3C-I 
3 - CSt-r(St3 
s - C3tr(Y) 

LeLall . Captio^ = ,r n:" l s i "r 11 £ "ys" i e 


Ej-û Siû-j 



. jjjSjj|j F5 4 j 4jU 4j 4S4«Uj4j ^JjS^4j ^ jj jLwU jj 
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| < ûSMb323(! 


ûtacsîiSS m 



<jjLxûj\* 4*Ljj4j j jJjS jJljJJ 4S<ûjjJdJb £Uj4j ^4«Ljj4j <j^4j jjjiSLbjS 4 j jLS4JjLulj ^4 Soj 
j*j4j DIj i£4jj>*j jjjtöb l4Jb4S4JÛji jj )jLS4SjU j jLSlijS ^jlSjLS j ^jbjlaj ^jLS4jLjj4j 

jj lJjSjj jUj ^^j ^LJjU ^jb iJjLp 4S. IjuSjIj ^1Ij£^4j j^*Ij4j ujAj i£^Ljj4j ^jU 4S 4Slji^ 

4j 4& iS^ijL)b 4û^ jJU 4^ j 4Sjjbjjj ^ ^j4w 4 »ulî^La j4& Ujjj4£ jj jj4<JjSjj j2jj jIjJjS ^jS ^jb Ujjj4A 

Ujjj4Ajj j Microsoft Access ^4*Ijj4j ûjjjjjjlJjj ^jLS^jjUjIj ^4Soj 4S <uIjj4j jjjiSdjjS ( jûa* 

. jJASjJ jmmS4J ^4jIjj4j 4j^U IjjjJJ 44 ijj JSIjil ^4abj4j 


♦ jLujj&jJjS j4A jLS4JjLu!j ^4S L <J 4lji^ jJJU4^ 


(dBASE) Jiirfi-l 
(Fox Pro) jjj j-SjS -2 

(Lotus) jfcijJ -3 

(Paradox) <>*SjJbM _ 4 

(.mdb) jmuiSaj -5 

jm&Aj i i^j)d(jjijij 4S < Jj ( . mdb ) AJ d£ jjd£a ^jLjjLûlj dSm i) jdJ j«Lj (jjjjJ Amj 






Luvjji ijtjJjUu* jutjjt b Microsoft Access (£4>ljj<u 4J jUuljjjU jUAjjjj 4J4jlj4J 

. jJASti jLuyU jLij4& <U Uuoj tiiLu iyStJtjlu <U jlSjjjLjlj (£4&U ^JjS 

jjj|jjjjAj4jlj jJ^Aj IJUU4Sjj4j£ujj£ <U luu Ijjjj4jlj Microsoft Access ^4jUj4j <U lujjj Iujjjl - 1 
.LkÛjjjUlJ juuiSdi ^<Uljj4J ûujji tftjlu 4J jj4SuUu4J 454»Uj4J 4J l»4jjLj CD <Lu«J^u Ij4j 
ûwlj jjjjj LxLu Programs <LU<&j Lj jjjjjj jllj44 jjjj4w jjj4j jLûb jj4Sjj Start ^4j j4w4l -2 



.LU£4£jJjJJ QimStJ ^<Uljj<U ^Jj4w jijLSjj I aL û -3 



I<j yejfej tl 



ijuLû File IjAj .jjj&jBlank Database <^4 jj 4 «41 ddS h ûmIj «U -4 

ûjjjjjjûaa New 

i»5fJL) 4 j4& IjjLSjj 41 (jijlijljjS uûj ( 2003j XPj 2000 j 97 )j4S jU4S Microsoft ^ Version i$jjj$S 4j -5 

lujjj lujJlj fkbj 4j IJULÛ ^jLS j44 ^jj4j JîbuMicrosoft Access t£4«bj4J 4S ÛjljU jUjb 41 j4^4J -6 
"databasel" □lj"dbl" 4SjjIjjLuj4m ^jb Ij4j^ûlj4jûjbj4£4j jj ûj45j j ^jjj ^Sj^b 4S4bU 

. jj4£jj ^jLwb ÛMJJ ûj4Sj (i Save ûûj4JJJ 4S ^4^ j 41 LUbJJJ 




Create table in Design view jAwAJ UIUS b table 4J jj jU "dbl" <u jLfib -7 

♦♦ ♦ ♦♦ ♦ ♦ V V 

. jLSdJjLûlj i£4SaJ ^JJjS jjljjj jj jjASjJ 



jj ju«jjj jbjj Ij Field name ^<u <U jûjjJjJjjlj ûjj<UUjj4S ( ijjûbj^ ) ^AjUjJjS jjû IjjjJU Umj -8 

jj4Sjj(iijbJ Fieldijjip-DataType ^AjjUjLfib 


Filed name 

Datatype 

FirstName 

Text 

LastName 

Text 

IdNo 

Text 

Passport 

Text 

Sex 

Text 

status 

Text 

Nati 

Text 

StillCountry 

Text 

from 

Text 

RoomNo 

Text 

ComeDate 

Date/Time 

LeaveDate 

Date/Time 






ÛLS;: ûljb iJULu jUZuj ûû: dJb ijijbliLj ^Jjum j£ jjji-jjb gjj| ^jl jjU ^aj 4Sjj4su Aj jLwU jj 
^ Aj uUjJUJ u aSAlû^ ^jU ^IjIj Ij ^jIjj AJ jJjJjJj JU AA Yes U jU uLSj ^JjA^ jjjJjI ulumjjJ LjU 
4l ÛLSjj ^ ûljlj b ^jDjlA) jjaSjj Ok LjIj jjj&j ^jJ^ Tablel ^ ^jU <u jju juu ûUj ^jjA^ ûbjlû 

jjjj^AA No IjjjuJ ujAiU IjaS^lû^ AJ ^SLuUjJjJ {£Jj4jjJj 
ş&aj&jAm (jSj Table jjjU 4ûj$$j LIuoj 






luASjjL} jl£<U)Lûlj tJuLû ûû$4Sj:jj:4S tiJkt- £> LSjj jj I: table 1 jJL «41 j:j5 ÛLdS Jj:: <U uLIjjj: 

.lj4Sj jb jjliûw:: jb:j 


jjjU jj&û I: Visual basic ^<ubj<u <U jûi$jjLS4j Access Databasc j»u£4j ^ISdjjLûlj £&. : ^jj jj 
jjjLa j4^4j Access 97 jj jjjjij ^4i:jj^ 4 luu^u jjjljjjjJUJûl: jb4i:j4jjjx«ji 4) Microsoft Officc 97 
fk4j iJj:jj4j 4L«jjjj jj4Sj y^4j ^ j^jjbji j»4j ^:j4j jj jjjLuA jlS4: jb AcccssXP jb:j Access2000 

: jj4Sj 4tf b- 

4Sj Convert Database j4«4J 4L£ jLfib j :jjjji44 Database Utilities ^4 j I: Tools ^juul 41-1 

To Access97 File Format...j4u4J bLdS b^jljjS 4i 



jûjJbJ ijjb jLwb jj jJ4£j: £>b: IJjLj ^i: ji j}4£ ^jjju UuLb 4i Ûuj4ij:jj: jj jb4jjj4jû 4 j j4l jLwb -2 

. jJ4£j: Savc j4m 4) bLdS LaLû 

ijjj4dbkw4j ^j4jjj^ I: jjjUI: ^iL£4ilj4J 4S I: jih»S 4 i ^4«bj4j 4J jlS4jjLûlj ^4Sb jjjb - 4 ujj jj I: ^jLjjS 41 ~ 3 

.jjj:j:j»bû4l I: Visualbasic (J4«bj4j ^41 4 j jjLûlj ^4 Suj j4j 



cLjfU «U jmuiAj aJ jLSdj JjLulj jAÎJu jJjAJuaAj 

pûxu jLS<UjLûlj i£*Sm jû\£»i AJ AS jrûl4»jlS»j Datajjljjû ujju IjAj jlSJjjLûlj <£»Sjj jj 

. jjjj% i^b »j jjjAujV jb jj& tfJbj 
f >4J jJ&A&JuJ 0jJjJ jUjj^LjJ b ^luUJj dJ jmuS 4 J jJfaUjAJ ^jlSJJjLulj tfdSiJu i£JjJa LLvdJ jJ 4jjû 

: 

.jJJSJ jJj ^Jdjlfi j»AJ jL^UyJjfcU djljjlJ ûjjdJ LûdjAw 






^LSajaj^uj AjjLj 


tp 

i^jj<UJ<UJlJ 

jlj-û 

iû 

Caption 

Label 1 

j^J 

Caption 

Label2 

4jLuwLj t£djL*j 

Caption 

Label3 

4aLu4.J 

Caption 

Label4 


Caption 

Label5 

JUAIj 

Caption 

Labelö 

^J4jtf ^jU 

Caption 

Label7 

^JjUj 

Caption 

Label8 

i^JLuûj 

Caption 

Label9 

jjUj tijiij 

Caption 

LabellO 

RecordNo. 

Caption 

Labelll 

Datal 

Caption 

Datal 

□li jU424uuu£4J JJjU ^yjjfl 
IdjUJjJUU j4j jkJU (db 1 ) ^JjU 

DatabaseName 

jUASJuiuuS 4J 4bU ^iuJjJ 
Tablel tjjjlJ 42 jjjjjjjjJju 

RecordSource 

TxtName 

name 

(iU<jbJ4)j4A«lj4J) Textl 

Datal 

DataSource 

FirstName 

DataField 

TextNo 

name 

^jjUj^JjjJbjJLwljJj) Text2 

( AfULtfU 

Datal 

DataSource 

IdNo 

DataField 

Text3 

name 

( jrUljb ^JbUi^ ûujjJj ) Text3 

Datal 

DataSource 

Nati 

DataField 

Text3 

name 

( jrUljU ^JbUiS ûttoiJj ) Text3 

Datal 

DataSource 

Nati 

DataField 

Nation 

name 

jjiU- u4ujJJ ûiû4j ) Text4 

(^JbLUU 

Datal 

DataSource 

Sex 

DataField 

Text5 

name 

( <U jjijU ûûû4j ) Text5 

Datal 

DataSource 

Form 

DataField 

TxtFamily 

name 





TxtFamily 

name 

< <du<Uj ûtLudj > Textö 

Datal 

DataSource 

LastName 

DataField 

PassNo 

name 

( ûtLudj ) Text7 

Datal 

DataSource 

Passport 

DataField 

Stat 

name 

(jIuaJ ûmuö& ) Text8 

( (jPAjuujJ 

Datal 

DataSource 

StillCountry 

DataField 

TxtRec 

name 

( Recordnoy^LuAJ )Text 9 

4*3* 

Caption 

Commandl 

ComExit 

Name 


Caption 

Command2 

ComDelete 

Name 


Caption 

Command3 

ComEdit 

Name 

Ö^ö 

Caption 

Command4 

ComAdd 

Name 

jûm Ijb 

Caption 

Command5 

ComSave 

Name 

Last 

Caption 

Commandö 

ComLast 

Name 

False 

Visible 

Next 

Caption 

Command7 

ComNext 

Name 

False 

Visible 

Preview 

Caption 

Command8 

ComPrev 

Name 

False 

Visible 

First 

Caption 

Command9 

ComFirst 

Name 

False 

Visible 

StCom 

Name 

&U Jjj <U luuöa j ) Comboboxl 

(^JdJ 

Datal 

DataSource 

status 

DataField 

RoomCom 

Name 

ypLu a) ÛMjj Jj )Combobox2 

Datal 

DataSource 

RoomNo 

DataField 



jL£d}j>4lj jjS 

jjJStj AuiUi j tiljljjZ ?>tû bGeneral jJ □«j4w - 1 

Dim Ext As Integer 
Dim Del, X As Integer 
Dim FirstName As String 
Dim db As Database 
Dim rel As Recordset 
Dim able As Integer 


: j»4j ijuujpJJ (TxtName)jj jjS -2 

Private Sub textl_Change() 

FirstName = textl.Text 
End Sub 


: juujjjiJ JjjS ?4J ( jjj ) (jiujjj jj -3 

Private Sub Optionl_Click() 

Text3.Text = Str$(l) 

End Sub 


: jyujjJH iJjS ^Jj ( ) ^gjjuJjJ jj L&ijjdA 6j~ 

Private Sub Option2_Click() 

Text3.Text = Str$(0) 

End Sub 

b textbox fk <U ijljjjU text3 jj jîubL| £JjL»jS ûAûJj u4j Textbox &*Sjj lu&j jS JjjjS jmL 

.'(ji IjIj ( jju ) öjUj [JajjJJ tj jjj LjIj U)4j jjUj 


4SjjLS 4) wÛj4jjjUIj ûLSjil ujLuujJ i£ uj t JjiJ jlluSjj jij JJjb b ijjJ ( ^Jlûj£ ) £Jj!jjSjj jjS -4 

. JjjjS JuSIj jj JS Lu M jtJ 

Private Sub ComExit_Click() 

Ext = MsgBox(" ûxufi 4 &>jLS4j yj QjS ujjtjtj blu ", vbYesNo + vbMsgBoxRight + 

vbQuestion + vbDefaultButtonl, " yjûjS") 

If Ext = vbYes Then 

End 

End If 

End Sub 



j^ujjjaa 4j a$lui pdj ( ajajjjM ) £JjL»}Sjj ajS-5 


Private Sub ComDelete_Click() 

Del = MsgBox(" aj£jj*j ûjj 4 j aa" & FirstName, vbYesNo + vbApplicationModal + 

vbCritical + vbDefaultButton2, " i&blib!!") 

If Del = vbYes Then 
Datal .Recordset.Delete 
Datal .Refresh 
End If 
End Sub 


^ajSabj jajdjjjMj jrkwljlj jj jjuojjj aa JjlajS pjj b ( ComEdit ) 4j ajljjjûaS ( ijjlSjljjS ) gJjlajS 4J -6 

û)4JjLûljj4A 

Private Sub ComEdit_Click() 

Datal .Recordset.Edit 
ComSave.Enabled = True 
ComEdit.Enabled = False 
ComAdd.Enabled = False 
End Sub 


^aajSaûj jj faujjj aa jj ^4jbjS ?aj ( ComAdd )4jdjljjjlj 4 S ( 4jjj£jbj ) ^JûbjS 4 S JjLtjS jjj&jjS -7 

b (jimSij (J4£4aLj 4U 41 jL4JjLûlj 

Private Sub ComAdd_Click() 

Print able 
able = 0 

If Optionl .Value = True Then 
Text3.Text = 'T" 

Datal .Recordset.AddNew 

TxtRec.Text = Datal.Recordset.AbsolutePosition + 1 & 7" & 

Datal .Recordset.RecordCount 
ComAdd.Enabled = False 
ComSave.Enabled = True 
ComEdit.Enabled = False 
Else 

Text3.Text = "0" 

TxtRec.Text = Datal.Recordset.AbsolutePosition + 1 & 7" & 

Datal .Recordset.RecordCount 
ComAdd.Enabled = False 
ComSave.Enabled = True 
ComEdit.Enabled = False 
End If 
End Sub 



d4j:j4Ûj*i jbjj d4j«:bj jU ^ylwljU jj 4j djljjjlj 4S (jbljb (£JÛUjS -8 


Private Sub ComSave_Click() 
Datal .Recordset.Update 
able = 1 

ComAdd.Enabled = True 
ComEdit.Enabled = True 
ComSave.Enabled = False 
End Sub 


ijuvjjj:: 4jl:jS (Datal ) 4 j jjIjmU 42 Data (Jjljjb -9 

Private Sub Datal_Reposition() 

If able = 1 Then 

If Datal.Recordset.Fields("Nati") = 1 Then 

Optionl .Value = True 

Else 

Option2.Value = True 
End If 
End If 
End Sub 


( jjlj: 4 ^jlbjS 4 jytiSiJi Lj:j4m ) jj jû::l: (jJliUjSjljç l::jj) -10 

jutijjj:: jj jb4jl:jS j4j 

ComLast 4 j jjI jijb 45 ( Last ) ( ^jLjjS ) julj: ^JiUjS jj -i 

Private Sub ComLast_Click() 

Datal .Recordset.MoveLast 
ComPrev.Enabled = True 
ComFirst.Enabled = True 
ComNext.Enabled = False 
ComLast.Enabled = False 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
End Sub 


.ComNext 4j jjljjjb 45 ( Next ) ( jjIj: ^oiUjS -u 

Private Sub ComNext_Click() 

Datal .Recordset.MoveNext 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComPrev.Enabled = True 
ComFirst.Enabled = True 
If Datal.Recordset.EOF = True Then 
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Datal .Recordset.MoveLast 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 

ComNext.Enabled = False 

ComLast.Enabled = Fals 

End If 

End Sub 


ComPrev <u *£ (Preview) -£ 

Private Sub ComPrev_Click() 

Datal .Recordset.MovePrevious 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComNext.Enabled = True 
ComLast.Enabled = True 
If Datal.Recordset.BOF = True Then 
Datal .Recordset.MoveFirst 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComFirst.Enabled = False 
ComPrev.Enabled = False 
End If 
End Sub 


ComfirstJb 4j<uUj<u j»<U«$l Ijjjti & (First)^ru4S4j ^JûUjS -j 

Private Sub ComFirst_Click() 

Datal .Recordset.MoveFirst 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComFirst.Enabled = False 
ComNext.Enabled = True 
ComPrev.Enabled = False 
ComLast.Enabled = True 
End Sub 


tyjMû ,»<u Load ijijbjij jjjAJ iju«jjj«jform jj jjS - 1 1 

Private Sub Form_Load() 

Set db = OpenDatabase(App.Path & "\DmDataB.mdb") 

Set rel = db.OpenRecordset("DanahMoter, dbOpenDynaset) Datal.DatabaseName = 
App.Path & 7dmdatab.mdb" 

StCom.Addltem "ÊioDa" 

StCom.Addltem "ÊÊDa" 
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1 

able = 1 

End Sub 



Activate iSjbjjy Form jj jjS jj 

Private Sub Form_Activate() 

ComSave.Enabled = False 
ComFirst.Enabled = False 
ComPrev.Enabled = False 

TxtRec.Text = Datal.Recordset.AbsolutePosition + 1 & "/" & 

Datal .Recordset.RecordCount 
End Sub 


jLSjjljJjLw jdjUjS jj jjS - 1 2 

(Last) (jaiUjS-l 

Private Sub ComLast_Click() 

Datal .Recordset.MoveLast 
ComPrev.Enabled = True 
ComFirst.Enabled = True 
ComNext.Enabled = False 
ComLast.Enabled = False 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
End Sub 


(Next) ^JûUjS jj :jS-u 

Private Sub ComNext_Click() 

Datal .Recordset.MoveNext 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComPrev.Enabled = True 
ComFirst.Enabled = True 
If Datal.Recordset.EOF = True Then 
Datal .Recordset.MoveLast 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComNext.Enabled = False 
ComLast.Enabled = False 
End If 
End Sub 



(Preview) jj :>S -£ 


Private Sub ComPrev_Click() 

Datal .Recordset.MovePrevious 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 

ComNext.Enabled = True 

ComLast.Enabled = True 

If Datal.Recordset.BOF = True Then 

Datal .Recordset.MoveFirst 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 

ComFirst.Enabled = False 

ComPrev.Enabled = False 

End If 

End Sub 


(First) ^JûUjS 

Private Sub ComFirst_Click() 

Datal .Recordset.MoveFirst 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComFirst.Enabled = False 
ComNext.Enabled = True 
ComPrev.Enabled = False 
ComLast.Enabled = True 
End Sub 




(BOF) £Au (EOF) 




jjj? ulidi IJjLû iS ^ji ^jSiJtjjjj Qajûui IjAj b JLj4j' J ajjA (J<ubj<u jlj <U Wizard ^LuA jj - 1 


Add-In Manager ijjj<U Add-Ins jA«AJ 4LdS ULu . j jiSaa Cancel bdjJd jjji>d4A ASajlijS 

fidd-Ins 

Visual E>3te Manager,,, 


Êdd-Ir> Manager„, 


Component Services * 

ûjjjSaajaa Add-In Manager jtjteij jj jLwb 



Load ^<u <U jj^jjj jLwb jj<&: VB Data Form Wizard ^ju jA«AJ JUS Jjjj U£ 4 jjjJm 4 j j»4J 
. jJdSjj OK jLwb jj. ûujaSjjjjj Loaded jljS JuJS Jjjj jJLwIjAj Ij Behavior 

. jjdSjj jJLwjU dLIS j jûfu Data Form Wizard jjljSjbj ^<u Add-Ins ^<u <U JûIjjjj Lbûj-2 


ad'd'Ins 

Visual Data Manager. 

Add-In Manager..,. 
CofnponenJt Services 


iData Form Wisard.. , 







Next jLwb jj jjjjjjjjÛAA Access Uj$<U ûû^jjjjj Data Form Wizard (JjjAjû jj jUU -3 



^AjUjJj Al jjd£»» jL&u uuii ^JjU ş&j \£ ( Path ) ^ujfi IJjLu AS lu^jJjjj ^j 4j jLfiLj dj — 4 

jAwAJ jjjS dutf <u j2j$4j jjS jb jj<^ Access 97 && MjijS jULijji li Microsoft Access 

ipjAjjjjj jj Browse.. 


Ddtabase Name: 




'V. 

."IJ - 


tffiA 


BtD^VSC. 


4ijj*ijj What name do you want for the form ^4 j <U ijuLuaS jj<Luj4Sjjjjj jj jbjû ,jS4jjj4jû4j- 5 
Next jLwb jj jjjjjjJ44 ADO Code ^jjljji4A Ij Binding Type <^4 j <U jLub jj ( jj£jU4û tSjAûj ) jU 

. jjjjjjJjUdA 


Jrftrt Fsnim Wî^nr-ri 



Lefcct thr= d«ir=d fcrm -arid -a dtt-a bmai-q typt to 

i.w to ^ccêiês Lhe dete. 


^idt iidiny lJu yLu vfarJ_ f»ur th‘»ti Förhi? 

jt d^dl C 4 i| 


r >:+m Lsyout 

‘jrd CDBtdst^cct) 
MwtefjtMal 
MbMKlBHÊnd 
MSChart 


Undng fyp>= 

■'" flLXJi D.-ac= ''-critrd 


■ flfjQ CûcSc 




sldp | 


Cancoi 


- J 


: D-a cf. 


PJ=xt S- 







j ul£d: ( JjJU- ) ijjlj ^ljl: ûû^jjjj: dJjjj<Uû Aj jUb -6 

** V ♦♦ ♦ V V 



4u4J :j<uja JU AS. A5 j ► j4u4J d ld S jLwL) j:jJjjJAA4w4j jAj ImÛjASjJjJJ jl^AwJj ^ûtuJ uAf AJ jLwu Jj 
^ja-u jj Cloumn Sort By <u ûjjSj JûAjjjj dS ûLSj: ^ ûljl: jLwb ûwlj jûu-jj jL5jjijjjj>J<b 

♦ V * ** * * ♦♦ V v ** ♦ 

.jjjjjiAAName 



.jjjjjjjA Next jLwb jj 







<u IjAj. Form <U 4jUUjjjj4S Command Button UuLû aS ûjj 4 S::j«: jû ^SjjjjAjû jj -7 
jLwb jj jjd£:: Select All jAwJJ û ld S jjjjjoJAA iJjjj^a ^jjjAj jj 4mj. jj 4S:: j4wJJ ^5ui£ ûdijj o tpjjjS 

.jjJiSjjûUlS Finish 



A: jûljjj: jLwL; :j. jlS:jljj|j jj jLS::jS ^uwjjj^ <u LuA ( jjÎAJJj jj^Ujj ) Aabj^ ^uiijl: Jj jLwjLjjS l::jaJ 
. jjjjl:: LuJjjj ipjJjS Aj jUuujjM j jtSJjJûUJ AjjLj <U jJjj^J jlSjjljjb ^jb JS<ULjj<U ^lwjjjj ^jjjjS 


fwjûUui jAoLij*jêpi 

:( Axwb- )Calculator c$4«b>4j 

. jjdSjjjUlj <uj^1w Command button <U Aib ( 30 ) j Textbox <U 4jb d<u <u DjjAm 



(Locked = True ) h<& ( Text box ) ^jû<uj<ujLÛ <U 
BorderStyle = FixedSingle ^jû<uj 4<jLj b Form (Jjj4*i<u <U UjjjAA jj 
ûjjJuAtijLStj iS (j 4 jljljjS b General-Declarations ^jjAu <U cÛAwjjj Q> 

. <u op j n2 j nl jSjjljJu 4S jjd&j AmLuj 

X j» 4 j 

Const pi = 22 / 7 
Dim op As String 
Dim nl As Single 
Dim n2 As Single 


jUMjjjjJ 4j|jjS pAJ JJJjlj^ (JJU47ifi> j>AJ (JJjJjS 4J iLjljulj jA4 jj jLwlu 


9 



i>ub 

Textl .Text = Textl .Text + "0" 

0 

Textl .Text = Textl .Text + "1 " 

î 

Textl .Text = Textl .Text + "2" 

2 

Textl .Text = Textl .Text + "3" 

3 

Textl .Text = Textl .Text + "4" 

4 

Textl .Text = Textl .Text + "5" 

5 


I<j yejfej tl 


Textl .Text = Textl .Text + "6" 

6 

Textl .Text = Textl .Text + "7" 

7 

Textl .Text = Textl .Text + "8" 

8 

Textl .Text = Textl .Text + "9" 

9 

If InStr(l, Textl.Text, ".") = 0 Then 
"." + Textl.Text = Textl.Text 

End If 


<nl = Val(Textl.Text 
"+" = op 

"" = Textl.Text 

+ 

(nl = Val(Textl.Text 
"-" = op 

"" = Textl.Text 

- 

(nl = Val(Textl.Text 
"/" = op 

"" = Textl.Text 

/ 

( nl = Val(Textl.Text 
"*" = op 

"" = Textl.Text 

* 

(nl = Val(Textl.Text 
" A " = op 

"" = Textl.Text 

A 

Textl.Text = Sin(Val(Textl.Text) * pi / 180) 

Sin 

Textl.Text = Cos(Val(Textl.Text) * pi / 180) 

Cos 

Textl.Text = Tan(Val(Textl.Text) * pi / 180) 

Tan 

Textl.Text = l/tan(Val(Textl.Text) * pi / 180) 

Ctan 

If Val(Textl.Text) >= 0 Then 

Textl .Text = Log(Val(Textl .Text)) 

Else 

MsgBox"" 

End If 

Log 

If Val(Textl.Text) >= 0 Then 

Textl.Text = Log(Val(Textl.Text)) / Log(10) 

Else 

MsgBox"" 

Endlf 

Ln 

Textl .Text = Exp(Val(Textl.Text)) 

Exp 

If Left(Textl.Text, 1) <> "-" Then 

Textl.Text = "-" + Textl.Text 

-/+ 
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Else 

Textl.Text = Right(Textl.Text, Len(Textl.Text) - 1) 

End If 


Textl.Text= 1 / Val(Textl.Text) 

1/x 

Textl.Text = Val(Textl.Text) A 2 

X 2 

If Val(Textl.Text) >= 0 Then 


Textl.Text = Sqr(Val(Textl.Text)) 


Else 

Sqr 

MsgBox"" 


End If 


If Val(Textl.Text) < 0 Then 


MsgBox"" 


Exit Sub 


Endlf 


If Val(Textl.Text) > 20 Then 


MsgBox"" 


Else 

N! 

s = 1 


For i = 1 To Val(Textl.Text) 


s = s * i 


Next i 


Textl.Text = s 


End If 


n2 = Val(Textl.Text) 


If op = "+" Then 


Textl.Text = nl + n2 


Elself op = "-" Then 


Textl.Text = nl - n2 


Elself op = "*" Then 


Textl.Text = nl * n2 


Elself op = "/" Then 


Textl .Text = nl / n2 


Elself op = " A " Then 


Textl .Text = nl A n2 


End If 



j L*j *Jjm jLfiU (nl) jjU jU^SjjUj ^U UjjAm AS jjASûAjjAm ( + ) £a$£ ^jlwjjj jj^dJ 
. QjşdSûî ÛmJJ <U jU ^djjj ^JjUj jLwU jJjJjJJJJAA ^Sjl^jS ^jJ^ L fc lU L (op) AJ (jJîj£ jj4i" 

. 4b AJ Awj^ JJ jLjJlj 4i ^ijjjl Jj jjUJAfr jLSJJjL^JJU JjbjiS AJ ^ 
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îûjo aj Label jU ^uwj^j 4 ) jj 

: JJijfu f>jj Activate <u b form <U ^Umjjj <sj* 4j 


Private Sub Form_Activate() 

Dim s As String 

For i = 1 To Len(Labell) 
s = s & Mid$(Labell, i, 1) & vbCrLf 

Next 

Labell = s 

End Sub 



Cujjj igjLjJ jjSdLJÛflu 4J ÛJjSûl ûJu (text) jiJ ^ULuJ^J AJ Ij jjg 

U JJJM ) 

jlj irUuJjj jû (jSdJijtej AJ JJ ijJSJJijJM JJ J ijJjlui\jS ijj-u dJJijJM JJ i£AJij4jijS^j <U ÛjjJjU) jiS 

ûmjjjj ^jjju <U jrjMjjja JjlijS pJj \jJj ûjjSjjjjm Textbox JSJuSjj luSjû 

Private Sub Form_Load() 

Textl.SelStart = 0 
Textl.SelLength = Len(Textl) 

End Sub 


$4£Ij jJASj ^ AmLu ^Lûlj jj O 

puêjjja Jj\ijS f>4j \jij 

Private Sub Commandl_Click() 

Dim x, y As Integer 
x = Screen. Width /15 
y = Screen.Height /15 

If x = 640 And y = 480 Then MsgBox ("640 * 480") 

If x = 800 And y = 600 Then MsgBox ("800 * 600") 

If x = 1024 And y = 768 Then MsgBox ("1024 * 768") 

End Sub 
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$ jUASdjjjj ^UAl (>udili ScreenSaver jfe 

. jjjjI^ jAjbji |»aj ijjA 4j ûI^jjjjj jj jULwLw jdjjjb IjAj Commandbutton jAwAl jLû j j£ dJS jjA 4 j 


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal 
hWnd As Long, _ 

ByVal wMsg As Long, 

ByVal wParam As Long, 

ByVal lParam As Long) As Long 

Private Const WM S Y SCOMMAND = &H1 12& 

Private Const SC_SCREENSAVE = &HF140& 

Private Sub Commandl_Click() 

Dim Res As Long 

Res = SendMessage(Me.hWnd, WM_S Y SCOMMAND, SC_SCREENSAVE, 0&) 

End Sub 





: Jbli 


i£4£4jUji 


JjU ^jj jS (jJjS 

FileCopy 

Jjli (JtjdJJ jm 

Kill 

JjU AiuljS/jb ^Uj^S 

Name 






Jijjji LUMjjl jj 

MkDir 

jJJLJji (JûjAJOjm jj 

RmDir 

j iJJji i£$\j ^yJjjl jj 

Name 
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îutûtti space aS AJIj jje 

jjJjljjS fkJÛ ^uwjjj jj^ 4j 


Private Sub Textl_KeyPress(KeyAscii As Integer) 

If KeyAscii = 32 Then 

KeyAscii = 0 

End If 

End Sub 



JjA <U <*5<W IjjAJ çjj+u j (JJÛj&wL J 4S4«ljjAJ (JjLj ^ûilj iii^ <U JJAUJISj ÎJ<U<Uljj<U j44 jUASdjjjJ <U jûljJJ : 

. Shell ijjjS ^Mwjjj 

Dim a As Integer 

Private Sub Commandl_Click() 

a = Shell(" C:\Program Files\Adobe\Acrobat 5.Q\Reader\AcroRd32 .exe", 
vbNormalF ocus) 

End Sub 

. jjjSjSJu ijjj? Ijjj(.exe) UjjjAajj Jj<nS<uljj<u j Path lj<j jjjjU b jjj<u ^jj<û 


t Jjti 

<u Imjlj ijûjjij Path <U jjijj AUli jAj ijjjjjj lujjj Ljjjju diULjj<u (Hidden) ^jjjûjjU jj 

. jjjiSjj^ 

Private Sub Commandl_Click() 

SetAttr "jjjjj path ", vbHidden 
End Sub 


jj L^jJj 

AUli jAj JjjjJj ujjjj LUjJum (Readonly) ûjj jjJjjUjj^ jj I^jJj JjjSj uUjjJUji <U jb JUUli jU Ij ^jjjû jj 

.jjJSjjç? jj LxLû jûjjlj Path ^jjjw <U jûljj 

Private Sub Commandl_Click() 

SetAttr "jjjjj path ", vbreadonly 
End Sub 
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jU JjLÎ i£d$tiêJyM 

4j ^ Lmuj jûj:l: Path ^jûjw 4) jûljj 4bU j4j ^jj jjj ûujj: DjjJm Ij4j ûûjjJJji jU dibli ^jjJuûjw jj 

. jj4Sj:^ 


Private Sub Commandl Click() 

Call kill ("path") 

End Sub 




j4j jjljj: ^LS ^4jîf4A jAj. jjjrjji iijUljjJj ^SuiUj j4A <U jb I: UiuJ<U jjjjul (J4 «Uj4j AJ 

■ jJjSy^AJ^ ^IS (£4iîf4A 

sDesign Time Errors jJlju: <PLSaJ jlS4i4A /l 
^jjj AJ ûjjjj:l: aJaa ^jj^ jjjuLwLj <u 45 ûjjjjiaj:: Syntax Errors jl5Jj ^jljJûUj jûju ju UjjjJU 
ûCuli U-.Next ijjljjlj Ai For ty u**j’4jl: UJ:j uujj: jjAjI£j:jS ^ uwjjj 4j j24j2f4A j4j 4S 4S. :jjj4jjjj: 

^jjjjiw <u ji<uu<u j»4j . ûi^jjjj: jjjm ^Jj4j 4S4ijji ûûj4£j:jj: jj jUJÛJU ^SujUjj jjj|j:l: Enter 
.Auto Syntax««Editor«<Option AJ4S ûûuljjjjjjjAA AutoSyntax ûljjli ûû^jjjj: ^SujUjjjj 


:Run Time Errors j: jS^ju^ ^LS ^j^jj^/2 
I:jU4jjjjj UJjj uLSj: £>U: jj jLu ^ujm 4£ ujj4SUjj: û U jU4j ju/jjj :jS l:4jVA& ^4J 

Dim X As Byte 

X = 256 

yuJSJi’ji j ÛÛJ Byte iJ4£jjj?X 4SÛ12U JjjJJÛ Jj4J ( jûij<U ) j»5f<U 4U(U(Ulj4iUj^4J4Û46gu&4£wlj iJJjil 

.ûu^jjjj: Over flow ^jUju .255 4J ûL jjjjjJiI 


îjBugş 


t ^ tUj^jjrtS Jj<L ; jkifAJ . uuJAJ jU j ^Ulj4jUj (J4J4A JjjjAJ 4S4 jUjAJ 4j4jlj4J 

JJjJUj4A ÛÛJ BugS ^J <U IJÛI 4 C- 4J Jj^j d<U<UUj<U ûu£ 4 ijU 4 t jUuwJj4J4S JJJ ( Ujiwl ) ^jjj <U ÛUJJU 


ûujj: Jj4jjjjJu jUji-jj bugs 


jûljûU jUjj- juûj 4S jjûljjjjjj jijuj: . ûûûlwjj I: Uljû<u jjj jLw<uUj<u 
. jj4jJjjJj jj jU BugS 4S (^jjJj jj jJ (J!jLw<UUj4j 4jjjjj jU 4 S<UUj<U 
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■ dSXvt/ |££ttdJI 0$jj/ . 1*1(11 M Jlfr ft fafl - 1 

. ddUjjJI j^« / uJy* JU^ t ul^Jl/ . i- U ih t J Jtjjfad ( 9 * i aJ -2 

.JUJjjfaJI 'jujjJI ~iSX*A/i$yw'i\ JUjej JLuun JLJg /. J LuJ Jl^fad >ia& uLcS -3 

. JUjjJI JJA4 "îj)^jr/ JU& Jtf i v t / .l *l(i i M Jl jA d ~4 

www.saduinet.com g2>« -5 
www.vb4arab.com -6 

www.arabteam2000.com -7 









